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EDITORIAL 


THIS MONTH 1 S MAGAZINE 

One of the most important items of equipment in your microcomputer set up is the 
TV or monitor that you use with it. The article on choosing a TV or monitor should 
be helpful if you want to assess the quality of your screen display, and includes 
some useful test programs. 

We have also included the winning Electron entry in the Niagara falls Brainteaser 
Competition that appeared in the supplement with the March issue. The program 
produces an excellent screen display, as you will see from the accompanying 
illustration, every bit as good if not better than the winning entry for the BBC 
micro. This would surely indicate that ELBUG readers need have no fear of being at a 
disadvantage in competitions of this kind. 

With more utilities and three more high quality games for you to type in and 
play, this issue of ELBUG should keep you busy and entertained for some time, 

ELECTRON ADD-ONS 

As promised last month, we are including a review of two of the latest add-ons 
for the Electron. These both allow the connection of joysticks to the Electron, and 
both offer excellent value for money. Acorn have just launched their own add-on for 
the Electron, to be called the Plus One, which we expect to to review in detail in 

the next issue. 

COMPUTER SHOWS 

The season for computer shows gets underway with the Computer Fair from the 14th 
to 17th June at Earls Court, London. Details of other shows appear under the heading 
of Events in the Supplement. We shall be at many of the London shows, and we would 
be pleased to welcome any ELBUG readers to our stand - look for the name BEEBUG or 
BEEBUGSOFT. A visit to a computer show is usually very interesting, and one sure way 
of seeing all the latest and best products for your micro under one roof. 

Mike Williams 



HINTS AND TIPS 

We thought you might like to know where the £10 and £5 prizes go for the best 
hints. This month the £10 prize goes to Mrs A.E.Morland and the £5 prize goes to Mr 
P.Bhandari. We are always on the lookout for more good hints to publish in ELBUG. 

MAGAZINE CASSETTE 

All the programs featured in this issue of ELBUG are available on cassette, as 
are all the programs from previous issues. Full details on price and ordering are on 
the inside back cover. This is certainly the way to avoid all those sore fingers, 
and you don't have to worry about making mistakes. 
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TWO JOYSTICK INTERFACES FOR THE ELECTRON 


Reviewed by Nigel Harris 


In the last issue of ELBUG we made mention of two new interfaces 

Jb 

for the Electron to allow the use of joysticks. This time we'll have 
a closer look at these devices and see what they have to offer. 


: Joyport, Joystick Interface 


indication in a program, 


but 


Product 

Supplier : Signpoint Ltd 

Unit D, 166a Glyn Road, 

Clapton, London. E.5. 

: £16.95 (inc. VAT & delivery) 


not 

for flying a plane or for drawing with. 


* / 


Plugging the interface in 
done with the computer switched off. A 
program (involving 
machine code programming and hopefully 
supplied and fully documented) must 

then be loaded and run to set up the 
function of the joystick with the 

computer. Each direction of movement of 

the stick is then interpreted by the 
computer as a character from the 

keyboard. Likewise with the fire 

buttons. 


Price 


: Electron S-J Interface 


Product 


Interface 

Supplier : First Byte Computers 

10 Castlefields, 

Main Centre, Derby DEI 2PE. 

: £24.95 (inc. VAT & delivery) 


Price 


for a joystick 


requirement 

with a microcomputer 

very common one these days, due largely 
to the 


The 


facility 


a 


FIRST BYTE S-J INTERFACE 

The First Byte interface comes in a 

glossy, little cardboard package that 
is going to stack very neatly on shop 
shelves. The actual device is a similar 


popularity of arcade-action 


type games programs with many 
users. However, there is no 

connection point on the Electron for a 
joystick. 


micro 


creamy colour to the Electron. Provided 

with it 


Acorn offer a means of expansion, 
by providing an edge-connector at the 
back of the machine. This is actually 
an open set of connections brought out 
from the circuit board and should be 
kept covered, when not in use, by the 
polythene strip provided. 


two pr og r ams on 


configuring 
the joystick to 
work 

program that you 
want to 

with. The first of 

you 


for 


ftAit 

it V'. 


with 


a 


it 


Both of the 

this review fit onto this edge 
connector and make available the 
facility to plug in a single joystick. 
Both are roughly the 
packet of 
light, 
actually 


these gives 


of 


a 


menu 


popular 
Af te r 


you ve 
one of 


4 


J 


a 


them, the program 


are 


very 


When plugged in, they 

supported by the 

Electron 


the 


up 


computer 


to 


surface that the host 


the 


is 


recognize 

particular 


resting on. 


keys 


needed by the game 


USING EITHER INTERFACE 


in question. 


two connections on each 

that will fit the 
that will fit the 

pin 'D' type 

Switched 

joystick. In other words the 

can only 

quantity which is either on or off, 
or, true or false. Good 


There are 


different 


In this way, some twenty 


One 

computer and one 
joystick. This is a 9 
socket for the standard Atari 


games are catered for, but for your own 
customising, another program called 
'SETUP' will get the computer to 
recognize your own selection of keys. 

This is a particularly useful utility, 

it makes 


type 
joystick 


a 


a simple screen 


use of 


diagram and prompts you for the 


for direction 
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information. 


course, the interface could plug into 

the Electron anywhere that it wanted to 
along the length of the connector, 

which again would be hazardous. 


not 

require any technical knowledge of the 
user, other than knowing which keys are 

in the application. You then 
load and run the program that you 

intend to use. 


At the other end (well actually 
coming out of the top of the Joyport), 
the 9 pin D-type socket was mounted 
directly to the 
circuit board. This also may 

very reliable in the long term, as the 
solder connections must take the strain 

of insertion and extraction of the 
joystick plug. 


Instructions 

of the joystick interface itself 
fairly scant. What there is, is quite 

clear and concise and very helpful, but 
not adequate, particularly in the case 

Instructions 


on use of the tape and 


pr i n ted 
not be 


on the bottom of the carton and despite 
a few lines of Basic that help to make 
use of a joystick from within a 

I still find myself a bit 


A cute little Xeroxed booklet came 


inside the box which simply showed a 

few examples of how the Joyport 
interface might be used in 
programs. These are very useful and in 

every Electron owner could 
experiment with them as they are all 
for customising the Welcome 

with a joystick. 


program 

confused about how exactly I should go 
about obtaining the effect that I want. 


THE SIGNPOINT JOYPORT 


is evident from appearance alone 
that this is the least expensive of the 

two 

reviewed here. The 


It 


for 


programs 

Secondly, a photocopied listing of an 
assembler program was supplied which 
when run made it possible to customise 

game. Having 
comments written against the program 
instructions makes it possible for the 
advanced 


physical design is 


certainly not 


as 


conmercial 


a 


attractive 


First 

Housed 
thin black plastic 

case, this one may 

not take 
deal 

inevitable 
battering 

going to come in 
for with kids. 


Byte's. 
inside a 


interested user 


to 


or 


experiment with this themselves and is 


of general interest anyway. However, 


the effort to type this in and save it 


of 


that 


oneself must be made, and it will be 
relief to the owner that the program is 
quite short. 


a 


it's 


x 11 


» 


) 


6 


8 | 9 ■ 0 


7 


T IV IUII 10 IP 


CONCLUSIONS 

Neither of these devices allow any 
further extension of the Electron's 
expansion bus from its rear connector. 
That means that both must fit at the 
end of such an expanded bus. However, 
both rely on the support of the working 

a large degree, for the 
robustness of their link with the host 
micro. It is hard to imagine how this 
particular joystick interface design 
will maintain a reliable connection 
with an Electron, which has already 
been expanded. For an extra eight 
pounds for the First Byte interface you 

getting less documentation, a much 

more elegant design, a cassette with 2 
short programs on, convenience for the 

time 

packaging. Whether the extra 50% is 
justified is a point of personnal 


F IG i H IJ IK IL 


< H > 


w 


o 


M 


I I 


On connecting it to the Electron, it 

becomes obvious that it's possible to 
put on upside down. Not that 
thinking owner is likely to, but it is 
possible and it would be enough to 

cause me some concern for my Electron's 
safety. 


the 


On our review sample, the spacer in 

the 

slot in the Electron's circuit board 


the edge connector fixed itself in 


prised 


repeatedly and had to be 
with 


This was of some 
inconvenience and it would be very easy 
to loose this little piece of plastic 
if care was not taken. Without that of 


piiers. 


and much 
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FLIP-FLAP 


by S. Good head 


This is ‘a game of thought and 
strategy', as they say, and is best 
considered 


a board game. The board 
and made up of smaller 
squares. The player may move between 

these in one of four directions (up, 
down, left or right), within the 

confines of the board. Every move will 
'flip' the colour of the small square 

moved to, from one colour to another. 
The object is to render a square board, 
which, is at first randomly filled with 
two colours, into just one. The 
challenge is to do this in as few moves 


Vou start in square A4. As you nova, 
the square you nove to changes colour. 


IS 


The object of the gam is to end up 
with all the squares' the same colour in 
the fe 


st number of moves. 


for some people ! 


It's so easy 


How vou oan have a go. 


'Return' when you are ready 


in its construction (though it resorts 
to the use of dreaded GOTO instructions 

in many instances), and not very long. 
The first few lines set up the computer 

for running the rest of the program. 
The rest of it breaks down into the 
following sections: 

Lines 200-250 give the player optional 
instructions. 

Lines 260-560 construct the board 
display on the screen. 

Lines 570-720 take a move from the 
keyboard, check for its validity and 
report back to the player on the 
screen.Lines 740-830 deal with the end 
of the game. 

Lines 1000-1080 take care of an invalid 
backwards move. 

Lines 1100-1140 take care of an invalid 
move off the edge of the board. 


The board begins with its 

to a random mix of both colours 
and it's then necessary to travel the 

board in a strategic fashion to revert 
all squares to just one colour in 
few moves as possible. Important points 
to note however, are that you are not 
allowed to retrace your last move, and 
some concentration is required in order 
that you shouldn't lose track of your 
last position. 


The computer version of this game 


represents the board on the screen in 


two colours and prompts for your moves 
from the keyboard. The following keys 
are used to make a move: 


to go U-p 


U 


0 


to go D-own 


to go L-eft 


L 


to go R-ight 


R 


* m * 


and you will 
colour as you move about the board. You 
won’t be able to make any illegal moves 
and all the moves that you do make will 
be tallied. 


the squares change 


F 1 f * i # 




* + * * i■ # ¥ ■«■ + •* * 9 + ■# * P fr 


* -f- i f « f « # « 


t # i r I 1 I 


fc # * 


10 REM Program FLIP-FLAP 
20 REM Version El.3 
30 REM Author S.Goodhead 
40 REM ELBUG June 1984 
50 REM Program subject to Copyright 
60 : 

100 ON ERROR GOTO 880 
110 *FX4,2 

120 DIM Z$(10):DIM 2% (1 7,1 7) :DIM A(4, 


The nice thing about this game is 
that it's as easy for several people to 
participate in as it is for one to play 

- provided you take it in turns! The 

game has many of the virtues of 

except that as far 

know, it's not possible to lose; the 
winner is the one who takes 
moves to complete the board. 


4) 


Patience 


we 


130 MODE6 

140 VDU19,0,4,0,0,0 
150 PRINTTAB(0,5) 

160 PRINTTAB(9) 

TAB(18,8)"by"TAB(14,10)"S. Goodhead 
170 INPUTTAB(3,16)"Would you like ins 

tructions ? (Y/N)"X$ 


»* 


* 


FLIP 


FLAP 


If 


If 


PROGRAM NOTES 

The program is quite straightforward 
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490 PRINTTAB(4,21)STRINGS(18,CHR$241 ) 
500 FOR X%=5 TO 17 STEP 4 
510 FOR Y%=5 TO 17 STEP 4 
520 READ Z%(X%,Y%) 

530 NEXT:NEXT 
540 RESTORE 1150 
550 X%=5:Y%=O7:Q$="O":C=0 
560 PRINT:PRINTTAB(6)"Enter your move 

move no. 

570 PRINTTAB(25,6)"U 
down"TAB(25,10)"L = 

= right 

580 REM Get the next valid move 
590 REPEATI$=CHR$(GET) 

600 UNTILI$="U" OR I$="D" OR I$="L" 0 

R I$="R 

610 IF I$="U" Y%=Y%-4:IF Y%<5 Y%=Y%+4 
:PROCwaI1:GOTO590 

620 IF I$="D" Y%=Y%+4:IF Y%>17 Y%=Y%- 
4:PROCwa11:GOTO 590 

630 IF I$="L" X%=X%-4:IF X%<5 X%=X%+4 
:PROCwa11:GOTO 590 

640 IF I$="R" X%=X%+4:IF X%>17 X%=X%- 
4:PROCwaI1:GOTO 590 

650 IF I$=Q$ PROCback:GOTO 590 
660 IF I$="U" THEN Q$="D 

670 IF I$="D" THEN QS="U 
680 IF I$="L" THEN Q$="R 
690 IF I$="R" THEN Q$="L 
700 IF ?Z%(X%,Y%)=255 T$=G$ ELSE T$=R$ 
710 PRINTTAB(X%,Y%)T$ 

720 C=C+1 

730 PRINTTAB(29,23)"MOVE No.";C 
740 REM Check for end of game 
750 B=0:R=0 

760 FOR M%=5 TO 17 STEP 4 
770 FOR N%=5 TO 17 STEP 4 
780 IF ?Z%(M%,N%)=255 THEN B=B+1 

790 IF ?Z%(M%,N%)=0 THEN R=R+1 
800 NEXT:NEXT 

810 IF B=16 OR R=16 PRINTTAB{5,26)"Ga 

me completed in ";C" moves" ELSE GOTO 5 


iV 




O ■ down 


s 




sv 


L - I#ft 


2 


p '. 1 


IP" 


£ 




r i 9tit 


II 




kV 


= up”TAB(25,8) "D 
left"TAB(25,12)" 


r» 




II 


R 


fl 


N" GOTO 280 

GOTO 170 


180 IF LEFTS(X$,l) 

190 IF LEFTS(X$,1)<>"Y 
200 CLS 


VI 


II 


210 REM Instructions 

220 PRINTTAB(4,5)"You start in square 

A4. As you move,the square you move to 
changes colour. 

230 PRINTTAB(4,9)"The object of the g 
ame is to end up with all the squares t 
he same colour in the fewest nirnber of 


ll 


II 


tt 


II 


moves, 

240 PRINTTAB (4,1 Spit’s so easy 


for 


IV 


some people ! 


If 


250 PRINTTAB(4,16)SPC(5)"Now you can 
have a go. 

260 INPUTTAB(4,20)"Press 'Return' whe 
n you are ready"X 

270 REM Draw the board 

280 M0DE4:VDU19,0,4,0,0,0 
290 VDU23,1,0;0;0;0; 

300 VDU23,240,&FF,&FF,&FF,&FF,&FF,&FF 

,&FF,&FF 

310 VDU23,241 ,&CC,&CC,&33,&33,&CX3,&CC 
,&33,&33 

320 R$=STRING$(4,CHR$240) 

330 S$=CHR$(10)+STRINGS(4,CHR$(8)) 

340 RS~R$+S$+R$+S$+R$+S$+R$ 

350 G$=STRING$(4," ") 

360 G$=G$+SS-K3$+S$+G$+S$+GS 

370 FOR X%=5 TO 17 STEP 4 
380 FOR Y%=5 TO 17 STEP 4 
390 P%=RND(2) 

400 IF P%=1 T$=R$ 

410 IF P%=2 T$=G$ 

420 PRINTTAB(X%,Y%) T$ 

430 NEXT:NEXT 

440 PRINTTAB(6,2)"A BCD 
450 PRINTTAB(4,4)STRINGS(18,CHR$241) 
460 X%=4:FOR Y%=5 TO 21:PRINTTAB(X%,Y 
%) CHRS241:NEXT 

470 X%=2:PRINTTAB(X%,6)"1"TAB(X%,10) 
2"TAB(X%,14)"3"TAB(X%,18)"4" 

480 X%=21:FOR Y%=5 TO 21:PRINTTAB(X%, 
Y%)CHR$241:NEXT 


IV V 


Q. 


”0 


90 


820 INPUTTAB(5,28)"Do you want anothe 
r game (Y/N)";X$ 

830 IF LEFTS(X$,1)="Y" GOTO 130 

840 MODE6 

850 *FX4,0 

860 END 

870 : 

880 ON ERROR OFF:MODE6 
890 *FX4,0 

900 IF ERR017 THEN REPORT: PRINT" at 
line ";ERL 
910 END 

920 : 

1000 REM illegal retrace move 

1010 DEFPROCback 
1020 IF I$="U" Y%=Y%+4 
1030 IF I$="D" Y%=Y%-4 


II 


II 
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1040 IF I$="L 
1050 IF I$-"R 
1060 VDU7 


M 


X%=X%+4 


1120 VDU7 

1150 PRINTTAB{5,28)"You cant go throug 
h the wall !":FOR D=1 TO 2500:NEXT:PRIN 
TTAB {5,28) SPC (30) 

1140 ENDPROC 


fl 


X%=X%-4 


1070 PRINTTAB(5,28)"You can not go bac 
kwards":FOR D=1 TO 5000:NEXT:PRINTTAB(5 


28)SPC(35) 


/ 


1080 ENDPROC 
1090 : 

1100 REM Illegal move into wall 
1110 DEFPROCwall 


1160 REM Board data 

1170 DATA&5E68,&6368,&6868,&6D68,&5E88 
&f6388 r &6888, &6D88 , & SEA 8, &63A8 , &68A8, &6 
DA8,&5EC8 # &63C8,&68C8,&6DC8 


t 


BASIC KEYWORD ABBREVIATIONS & TOKENS 


Although the Electron keyboard allows a number of Basic keywords to be entered by 
single keys on the keyboard, in fact, 
in an abbreviated form, which can be useful 
the amount of typing required. For example 
function key definitions to save space. The table below li 
and their abbreviated forms together with the token for 
hexadecimal number which is used to represent each keyword internally. 


nearly all the Basic keywords can be entered 

in a number of ways as well as reducing 
keyword abbreviations are very useful in 

all the Basic keywords 
each keyword. This is the 


t 


The keywords marked with an asterisk (*) are those which can be entered by single 
key strokes from the keyboard. The third column gives the hexadecimal value 
token. Note that the abbreviation includes the opening bracket 


of the 
if one is required. 


* plot 

POINT! 


PI 


F0 


GOSl B 

* GOTO 

HIM EM 


ABS 


A US 


94 


14 


BO. 


BO 


95 


ACS 


ACS 


G 


I 


POS 


HI 


A OVAL 


H. 




AD. 


96 




* 


P 


! I 


I right I 


A NI) 
A SC 


A 


SO 


* PKOC 


PRO 


F2 


HIM EM 


0? 


*1 


II 


9 


p r r 


PI. 


SI 


ASN 
A I N 


98 


I leu) 


I right) 


ATN 

* A UTO 
BGET 
BPUT 
CALI 

* CHAIN 
CHRS 
CLEAR 
CLG 
CLOSE 


ti 


I' 


11 


99 


PI K 


PT 


CF 


INKEY 
INK! YS 
* IN Pi I 
INSTRt 


C6 


Al . 


V> 


den) 


B. 


INK 


9A 


* RAD 
READ 


RAD 


B2 


BP 


D5 


I. 


IS 


REA 


F5 


l A. 


INS. 


\7 


D6 


REM 


R K M 

* RENUMBER Rl N 

* REPEAT 
REPORT 
RESTORE 

Ri ll KN 

RIGHTS! 

RNI> 

* RUN 

* SAVE 

SGN 


E4 


[NT 


I NT 


CH. 


D 


CC 


I.EEI S' 


1.1 


BD 


CO 


RI P 


F5 


I.EN 


l.EN 


CL. 


D8 


\9 


K! PO 
RES 


E6 


EFT 


I FT 


F9 


CLG 

CLO 


DA 


* 


FT 


LINE 

* LIST 


UN. 


86 


I >9 


R. 


F8 


C9 


CLS 


L. 


CLS 


RI 


C2 


* COLOl R 
COS 
COL N I 
DATA 


I N 


I N 


C. 


IB 


A A 


RND 

R IN 


B 


COS 


♦ l OA D 

* LOCAL 
LOG 
LOY1EM 


l O. 


(A 


LOG. 

LOG 

LOM 


F.A 


COD. 


9C 


S A. 


CD 


D. 


AB 


I>( 


St AN 


1M 


DM- 


9 : 


D e: i 


r > d 


SIN 


SIN 


H5 


DEG 


(rielu i 

m 


9D 


SOI N!) 


SO 


D 4 


I O.V 1 


D2 


1)1 LI 11 


DEL 


C‘ 


LOME M 


SPC 


K9 


DIM 


deft) 


DIM 


DE 


.■* * 


SOR 


DIV 


MI DS> 


M 


C 


SI 


* STE P 
STOP 
SIRS 
STRINGS) 
T A B( 

IAN 

* THEN 
TIM E 


S. 


ss 


* DRAW 


MOD 


DR 


DF 


8 


FA 


* 1 LSI 


MO 


EB 


* MODE 


El 


SIR. 

STRI. 

TAB! 


O 


* END 

ENDPROC 1 E. 
ENVELOPE EN\ 

FOR 


EC 


l ND 


MO\ 


(4 


NEW 

* NEXT 
NOT 
OFF 

* OLD 


C A 


El 


8 A 


f: 


N 


ED 


T 


B7 


1 OR 


A C 


82 


NOl 


I H. 


8C 


EOF 


(< 

v ■ 


O FI 


87 


TL 


91 


FRI 


ERL 


9F 


CB 


I right i 


LKR 


ON 


I RR 


ON 


EE 


riME 


TI. 


L>! 


O P IN IP 


F K R O K 
E V A L 


OP. 


ERR. 


85 


AD* 


den) 


ope: no. 

OPT 


FV. 


Al 


AO 


K) 


TO 


1 XI* 


FXP 


A I 


I RACE 
I R L F 

* UN I II 
LSR 

V A L 

* VDU 


IR 


FC 


I X I 


OR 


A 2 


9 i 


S 




TRUE 


B9 


false: 


FA 


A ) 


OSC LI 
PAGE 


OSC 


I I 


* * 


u 


ID 


1 N 


I N 


PA 


A 4 


90 


BA 


* FOR 
GC O L 
GET 
GETS 


F. 


(right t 


I 


V A L 


BB 


(C. 


P, 


PA 


DO 


16 


V. 


IE 


GET 


deft) 


A 5 


VI * 


IK 


GF. 


BE 


PI 


PI 


A F 


ID I H 


VV 


FF 
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CHOOSING TVS AND MONITORS 


by Sieve Fox 


A bewildering range of colour monitors is now available. In this 
article, Steve Fox offers advice to those who 

purchase or would like to assess the monitor they are already using, 
with the 


contemplating a 


programs provided. We will be reviewing some of the 
currently available monitors next month. 


All good colour displays require a 
monitor having an RGB input. The 
computer generates three simultaneous 
TV signals: red, blue and green. These 
are fed (usually via a DIN plug) down 
three separate conductors in a multiway 
cable to the monitor. The three signals 

applied to the picture-tube to 
generate three superimposed images. The 
colour you 
combination of the three signals is 
"on". Thus the red image superimposed 
on the green image is seen as yellow. 


which 


depends 


on 


Green and blue are seen as cyan, and so 


forth. 


The main difference between the 

image from a computer and a TV picture 

is that the computer's signals have 
only two values, on and off, whereas a 
TV picture will contain many 
intermediate tones and shades of 
colour. If you could get a TV picture 
by means of an RGB connection, you 
would have a superb image compared with 
what you usually see. This is actually 
done in TV studios, but for 

transmission the three signals have to 
be combined into one ("coded"), and 
then modulated on to a radio-frequency 

The TV 

the combined signal and then decodes it 

(i .e. 


to separate out the red, green and blue 


signals, 

and very often remote control also. The 

omission of all this technology should, 
by rights, knock some 401 off the 

In practice, a standard 
costs about the 


audio stages, 


a loudspeaker 


TV 


price. 


receiver 


dedicated computer monitor of the 
size. One has to pay a little more for 
the TV receiver to be modified for RGB 
input, but this may prove to be an 
excellent investment if you wish your 
monitor to double up as a colour 
receiver, for example as a portable. So 
far as I know, no manufacturer actually 
carries out such modification. The work 
is done by specialist dealers who 
usually work to a specification which 
has been approved by the manufacturer. 


receiver demodulates 


carrier. 


into its three 
component parts). These transmission 

and your 

computer display will be similarly 
degraded if you connect it to a 
receiver by means of the aerial feed. 


processes degrade the signal 


TV 


Turning now to purpose-built RGB 
monitors, these come in three grades, 
depending on the resolution of the 
picture-tube. The "standard" resolution 
tubes 


However, it should not be assumed 
that a purpose-built RGB monitor will 
necessarily give you a better picture 
than a TV 
modified to take an RGB input. The type 
of picture-tube in the two is very 
often identical and so 


range of 

mass-produced tubes which are found in 

resolution tubes are 


from the 


which has been 


sets. "Medium 


U 


TV 


sold in much smaller quantities and so 
cost a lot more. A typical monitor 
incorporating such a tube would cost an 
extra £120. If you want a 


the video 


circuits. But of course the TV receiver 
is enormously more complex containing, 

demodulator 


High 


II 


IV 


tuner and 
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Having made your decision regarding 

the type of monitor you want to buy 
study the adverts in the ELBUG 
supplements, and other magazines* There 

substantial variations in the 

asked for an identical monitor, 

but I would advise against ordering 
without a demonstration, however 
reputable you believe the maker and the 

To arrange this may not 
many of the more 
competitive firms deal mainly by 
mail-order, perhaps from a remote part 
of the country, but you may find it 
worth persevering. Computer clubs can 
also be a rich source of wisdom, and 
members are usually very willing to 
give a demonstration of their own 
monitor. 


tube this will cost another 


resolution 
£120 or 

justifiable? In terms of resolution, 
the answer is no. Mode 0 graphics are 
low definition compared with a TV 
camera and a standard TV tube is more 
than adequate to resolve any detail 

which the BBC 
capable of generating. But this is not 

the entire answer. 


these extra 




Electron micro is 


or 


be 






























TESTING YOUR TV OH MONITOR 

Finally, you can test out your TV or 
monitor with the programs listed here 
The testing and setting-up of monitors 
is a subject for the expert but, armed 
with programs 1-4, you can spot most of 
the faults 
watch for. 
















































. 












.*« * 
























* : 
















































»- 




* 




•♦i 


some things to 


Here 




Jr® 


For various reasons. 


we tend to view 


blue and 


1. Using Program 1 

green images should coincide over the 

of the 


the red 


t 


t 


a computer monitor from a distance of 2 

the normal 


or 3 feet, less than half 


screen. If they 


viewing distance for television. As we 
move in, the screen 
more and more noticeable. If you have 

never done so, try taking a magnifying 

a colour TV 


don’t, there will be coloured fringes 
visible on the white grille and dot 


structure becomes 


pattern 


-# 


the screen of 


* ■■ * 


* -fc 
P ■ 1 i 

m m m m 


i* ■* 

* ■ mm mm 
m ■ + * p * m m p mm mm 


m A -Sr ■ ■ 


m A a A 


a- a 


A A 


* a- 


AA»*#* 
* * 


A 


revelation! The 

particularly distressing 

80-column 


m 


* 


i m 4 


* 


A 


A 


A * 


A 


* 


* # 


# - * ■ 

a a # a 


* 


* 


i 


m m m a 
a « s a * 


■ 


a 


* * 


* m. m 


* 


4 > ■ 


ik 


I 


4 


■ 


A 


a *■ m m 


A 


V A 


« 


structure 
when 

word-processor 
distance between the colour 


is 


10 REM TVMONl 
20 MODE 4 

30 VDU23,1, 0; 0; 0; 0; 

40 FORJ%-0TO1279 STEP 64 
50 MOVE J%,0 
60 DRAW J%,1024 
70 NEXT 


■* 


* 


an 


viewing 


t 


is comparable with the 

But before you 
that you need a high resolution 


{"slot 

width of the letters 


pitch") 


A 


# 


with word-processing 


■r 


monitor to cope 

do bear in mind that a good monochrome 
monitor can be had for less than £100 


/ 


80 MOVE 1279,0 


90 DRAW 1279,1024 
100 FORK%=0TO1023 STEP 64 


and that its 
faultless! 


structure is 


110 MOVE 0,K% 

120 DRAW 1280,K% 

130 NEXT 

140 MOVE 0,1023 

150 DRAW 1279,1023 

160 FORJ%=32TOl248 STEP 64 

170 F0RK%=32T0992 STEP 64 

180 PLOT 69,J%,K% 

190 NEXT, 


Of course, there is no doubt that 
the higher resolution {I prefer to call 
them 

very pleasant to 

graphics and if you can 
luxury, go ahead. Those who 
afford 


finer structure”) 


I! 


for coloured 

afford the 

can ’ t 


it 


get 


can 

improvement by sitting a bit further 
away from their screens! 


a 


* * # * 

■! *■■■ + ■ 


+ 




* * 


M iff 

h i * i # 

* V * * * 


* iM 


■* 


■ 




( 


* 


■ 


* 


* 


# ar ■ 


* 


■ 


+ 




d * 


ii 


k 4 * m 


■ 


* * * 
* * 




- * ■ * * 

d- ■#■ « + * + 


I * 


u 


* * * 


III 


I 




* 


k 


* * ■ 


# *' * * # 


* # 
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2. Linearity and geometry should be 
good i.e. no squashing or extension of 
the grille and all lines free of 
curvature. 

3. When the computer switches a colour 
on or off, the vertical edge of the 
waveform should be "clean", i.e. each 
block of colour in the colour-bar 
signal (Program 2) should be of uniform 
brightness. Avoid monitors which give 
dark or bright vertical lines along the 
boundaries. 


5. RUN Program 4. The corners of the 

raster should be on the screen and the 
raster size should not change as the 

colours change. The white should 
neutral and not tinged with a colour. 

P- V ■ ■* -w I- « ■ «• * ■ ■ i? ■ * ■ j n # j ■ b * 4 i m A * Hi s v ■ ■ # * * I | t i # 4 t t t ■ * ■ * * ■ ■ * * * * * ■ * *• •# A A A m ■> « 4 p 

■ A ■ ■ d p p # 4 # 4 b ip a p a 41 m v ■■ » ■ * ■ » ■ 11 :f ( i|. ( j 4 ip A* ii ■ b 4 4 lb .■ y b Ai ■' a ic w b n bi A A ■ A i » A n A » * h i * ■ .A # # * m v -b ,p ■ 

m * * e ia*attiBife|i*iB«»«i b- * ■* ■» b- bi A- ■* A » Hi §■ * A # -A “ ■ ■ ■ -■ * m ■ ■ A A » * * mm mm 

10 REM TVM0N3 
20 MODE 0 
30 FORJ%-0TO2558 
40 VDUJ%M0D95+ 32 
50 NEXT 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 
1 30 


REM TVM0N2 


MODE 2 


VDU23,1,0;0;0;0; 
FORJ%=0TO1120 STEP 160 

READ K% 

GCOL 0,K% 

MOVE J%,0 

MOVE J%,1024 

PLOT 85,J%+160,1024 

MOVE J%,0 

PLOT 85,J%+160,0 

NEXT 


DATA 7,3,6,2,5,1,4,0 



4. Use Program 3 to form a subjective 
judgement of definition. The screen 

structure should not be too obtrusive. 


•" " Ad A ■ * » # * # * * * * * # * -§■ ¥■?■«+ * * t ■ -r v ;r ■ ■ p 


m * 


■ * ■ A ¥ * ■ « A | 
A ■ '■ a a a * # a 


" i * 1^* f ■ * * # A-"* 


» ■ 

- A 



10 REM TVM0N4 
20 MODE 4 
30 REPEAT 
40 FORJ%=0TO7 
50 VDU19,0,J%;0; 
60 Z=INKEY 100 
70 NEXT 
80 UNTIL 0 


* ■ m * * ■< i i- fa 


■ v ■ r m ■ ■ i a m § m in# 


+ -5 + - T 


' ■ ■ f A ■ p « m * p * m + * * + »+» + «- + 

* E »■ «- ■ m - *■ * * ■% + * + i - + 4 * r ■ ■ 


A * ■ An#* A A m A 

* . -■ i . * 


Some of the defects which may be shown 
up by these tests may be remediable 
the 


by 

vendor: others will not. To avoid 


disappointment, don’t 


buy 


a 


monitor 


unless 


it 


has 


actually performed to 


your satisfaction. Next month 


we 


will 


review 


some 


of 


the 


monitors now 


available for the home computer user. 




HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


QUICK WAY TO TYPE OUT THE CONTENTS OE 


pa 


■£> 


M.Davis 


Type the '[' key (Shift and Copy key together) followed by Return and 


the 


value 


of p% is printed in hexadecimal form. This is the contents of the 'program counter’ 
of interest for assembler programming. 



MERGING VDU CALLS 


P.Vincent 


Don't forget that successive VDU calls may be merged into one, for example, 
VDU 12,14,19,1,4,0,0,0 is the same as 
VDU 12:VDU 14:VDU 19,1,4,0,0,0 



BBC/ELECTRON ACORNSOFT COMPATIBILI 


R. Paine 


Mr. 


Paine informs us he has been notified by Acornsoft that the program packages 
1 BCPL', 'Graphs and Charts’, and ’Creative Graphics' for the BBC micro, will run in 
their entirety on the Electron (provided you do not do something like selecting Mode 


7 


presumably) 


There 


are more packages that will run perfectly well, but with the 


the 



of 


the 


shortcoming of a distorted title page while loading, (this due to 
Mode 7 display for the title page). These other programs include 'Word Sequencing' 


'Wbrd Hunt’ 


i 


Lisp 


1 


'Sliding Block 



i 



X 


'Missing Signs' 


'Turtle 


Graphics', 'Desk Diary', 'Snooker 1 , 'Forth', 'Microtext 


I 


I 


Picture Maker 1 , and 'Cube 



f 1 



1 


Many of these are or soon will be available especially for the Electron. 
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USING THE CURSOR KEYS IN A PROGRAM 

by Philip Le Grand 



You are probably familiar with using 

the cursor keys for editing purposes 
but they can also be used within a 
program to control/ for example, 

vertical and horizontal movement on the 
screen. This is usually achieved by 

changing the normal function of the 
cursor keys so that they generate their 
equivalent ASCII (American Standard 
Code for Information Interchange) code, 
using the command *FX4,1. The 
particular code values associated with 
the cursor keys are: 






For example, 
following program: 


try 


running 


the 


10 MODE 6 
20 *FX4,1 
30 A=GET 

40 IF A=139 THEN PRINT "UP PRESSED" 
50 GOTO 30 


You should find that any time you press 

the cursor up key then a corresponding 
message is displayed on the screen 
otherwise nothing. The program could 
easily be extended to test for any of 
the other cursor keys as well. 

In a similar way, the cursor keys 
can be used as extra function keys 
using another variant of *FX4 (see the 
'Extra Function Keys' hint in ELBUG 
Vol.l No.4 and also the User Guide, 


Appendix D). The normal functions of 
the cursor keys are reinstated with: 

*FX4,0 <return> 

With all types of * command you should 

ensure that they are the only, or last, 
instruction in any line of the program. 

The following example program 
demonstrates how the function keys can 
be detected within a program. It 
displays an 'invader' on the screen, 
and then using the four cursor 
direction keys, the invader can be 

moved to any part of the screen. 

100 REM CURSOR KEYS DEMO 
110 ON ERROR GOTO 270 
120 MODE 1 

130 VDU23,244,102,153,60,90,126,60, 

66,129 

140 VDU 5:GCOL3,2 

150 *FX4,1 

160 X%=640:Y%=512 

170 REPEAT 

180 XI%=X%:Yl%=Y% 

190 MOVE X%,Y%:PRINT CHR$(244) 

200 A%=GET 

210 IF A%=136 THEN X%=X%-4 
220 IF A%=137 THEN X%=X%+4 

230 IF A%=138 THEN Y%=Y%-4 
240 IF A%=139 THEN Y%=Y%+4 
250 MOVE XI%,Y1%:PRINT CHR$(244) 

260 UNTIL FALSE 

270 MODE 6:*FX4,0 
280 END 


PROGRAM NOTES 

The *FX4 command to turn off normal 
editing facilities can be found in line 
150. These are reset in line 270 if you 
exit from the program. The other lines, 
up to line 160 select screen Mode 1, 

define a character for the invader 
(line 130), join the text and graphics 

cursors to allow finer positioning of 
characters and select the initial 
position of the invader with X% and Y%. 

In the main loop of the program, the 
invader is first displayed in yellow. 
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using Exclusive-OR plotting, and then 
the computer waits for a key to be 


pressed. When this happens, 


the ASCII 


210 IF A%=136 AND X%>10 THEN X%=X%-4 


value of the key is returned in A%. 
Lines 210 to 240 then check to 
which, if any, of the cursor keys have 

been pressed, in manner very similar to 
our first example. For example, line 

210 


220 IF A%=137 AND X%<1240 THEN X%=X%+4 


230 IF A%=138 AND Y%>30 THEN Y%=Y%-4 
240 IF A%=139 AND Y%<1000 THEN Y%=Y%+4 


the value in 


tests whether 


Line 210 now checks to see if the 


If 


corresponds to the left cursor key. 
it does, then the x co-ordinate is 

invader 


left cursor key has been pressed AND if 


the invader is more than 10 graphics 
units in from the left hand side of the 


* 


The 


4. 


is 


replotted at the old X%,Y% position to 

erase the previous image, and the loop 
returns to the start to display it in 
the new position. If any other key is 


before the new position for the 
invader is calculated. 


■ 


m 


The reason for using Exclusive-OR 
plotting 

an invader by redefining the invader's 
colour to black, plotting it at the old 
position to erase it, and then defining 

to be yellow again. If you 


pressed, the invader is redisplayed at 


is to avoid the need to erase 


the same point. The loop is repeated 
indefinitely, or until you press Escape 


or Break. 


At the moment, the program will move 

the invader off 
moved far enough, 
possible to prevent this by changing 

lines 210 to 240 to take account of 
this: 


its 


display any object 


the screen if it is 


using 

then plotting the 


plotting 


it 


However 


/ 


object a second time effectively erases 


it from the screen 


* 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


Mrs. A.E. Norland 

For a blue striped background for your text, without using a function key or 
writing the command on the screen, keep the CTRL key down and type 
not in Modes 2 or 5) 


VDU FUNCTIONS FROM CONTROL CHARACTERS 


I 


t 


* 


(What this 

Electron which redefines the logical colour of the background as blue. See the VDU 

19 command in the User Guide p. 266, or for more ideas, see Appendix A. For example 
CTRL 'L 


the equivalent of a VDU 19,2,4,0,0,0 command to the 


is to 


will clear the screen, 


will make a colour TV look like a 


I 


I 


l 


or CTRL 


green screen monitor). 


* * ■ p ■ ■ * 9 -P I 4 * 9 m * 1 * ip a 4 w * m * * * * m 

* 4 


■ • w # 

v « * in 

ft ■ ft A 1 *1' -fi 


ft 


ft 4' * A 
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ft rn • ft A ri- ■ 
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1 i f I 

« i m 
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ft ft d- 
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ft ft -ft ft -ft ft "ft ft ft 1 ft ft ft ft ft" ft ftf ft ft ft* ft v 

+ # ft m a * 


ft * 
■ vifl 
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9 9 # 9 
♦ * * ■ 9 9 
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p 'IP 


* 9 

l i #“tt 9 9 
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« m 
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4 


4 4*4 


4 


4 14 4 


9 ft * 


ft 4 * 4 4 4 4 i" 4 


t I i i i i i 
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9 
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- 


4 


ft 


- 


— 


9 


PROGRAM LENGTH 

To find out the length of a program that has been loaded from tape, print the 
decimal equivalent of the four figure hex number that appeared on the screen at the 
end of loading. For example, if it is 3400, then typing 
required number 


Print &3400' will give the 


I 


*• 


ft 


* 4 

ft * ft 4 

ft ft ft .ft ■ ft ft li¬ 


ft ft 


ft 


ft ft 


ft ft * ife 
ft ft ■ ■ % 
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P.Bhandari 


QUICK PRPC OR FN LOCATE 

To find a procedure in a 
listing of it, try this. To find, for example 'PROCintro', type in immediate mode 
TRACEON:PROCintro 


# 


The line number at which the Basic code for PROCintro 

the screen in the first set of brackets. Don't forget to give any parameters 

may be required. To do the same with functions, type 

TRACEON:PRINT FNintro 


will then be printed on 

that 
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FOUR GAMES REVIEWED 


Title 


Each bomb is represented by the word 

TNT and a number which counts down 
towards zero. If the number reaches 
zero, the bomb explodes and you lose a 
life. You 

running on to the square that 
the bomb. 


Danger UXB 
Program Power 

£7.95 

**** 


Supplier 


Pr ice 


Rating 
Reviewer : Alan Webster 


the bomb by 

contains 


There 


sku11s 


of 


warning 

unexploded bombs positioned around the 

must be avoided at 


and 


' 


IV 


/ 


game is made more 

each square on the board 


* 


difficult 

can only be visited once 
and some thought is needed to work out 

the best route each time 


r 


■* 


The game has three skill levels, 
with the third being very difficult, as 
you are being chased by big army boots 
at the same time as you are trying to 
defuse the bombs. 


popular 
Danger! UXB”? It was 

about members of a bomb disposal squad 
defusing unexploded bombs around the 

time of the second world war. Well, 
this game of the same name has cast you 

the role of the bomb disposal 


television 


■ 


it 


This 


4 


very colourful and 
enjoyable game, and one that you will 
want to play again and again. 
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Title 
Supplier 


Fruit Machine 
Superior Software 

£7.95 


favourite, 
suffer quite a lot from lack of speed 


unfortunately it does 


Price 


Rating 


I found the game quite tedious after 
a while, as you wait for the reels to 

spin, plus the fact that there are very 
few extras included in this game, apart 
from 

facility. 


* Jc 


Reviewer 


Alan Webster 


simple nudge and gamble 


a 


Fruit machine games demand the full 
range of colours available in Mode 2 to 
provide a really good screen display, 
but the resulting lack of 
considerably reduces the appeal of this 


4 


version. 


[See our 

Programs on an Electron 
6 of ELBUG for more information about 


■ 


II 


Using BBC Micro 


in issues 4 to 


VI 


the effect of screen mode on the speed 


of the Electron 


Ed.) 


Fruit Machine 
implementation of the arcade and pub 
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Chuckie Egg 
A & F Software 
£7.90 

David A. Fell 

it*** 


Title 


rather peculiar looking bird called 
Chuckie Egg, and you have to walk and 

fly around a complex of ladders, 
floors, and 
collecting 

completed when all 
been gathered, and you can gain 
points by eating the piles of grain 
that are also present. There is a bonus 
for completing the round as quickly as 
possible, and hazards are provided in 
the form of stork-like birds, which eat 
the piles of grain, and kill you if you 

with more 


Supplier 


Price 


Reviewer 
Rating 


elevators 


{later on) 


/ 


Each 


round 


is 


of the eggs have 


oooooo OOOOC'O oooooc 


11 n tun 


i i mi i 


trriMiis tin M * 


i ii* 


IIME 300 


get too close. 


appearing as the game advances. 


The game gets increasingly harder as 
you progress through different levels, 
and zhe graphics, although perhaps a 
little simple, are quite pleasing, as 
are the sound 
certainly well worth purchasing, and 
will provide hours of entertainment to 
the game player. 


effects. This game is 


Chuckle 


those 

addictive games that you could happily 
play all day, given nothing else to do. 

The scenario is very basic; you are a 
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Title 


Invaders 

Superior Software 
£7.95 

David A. Fell 

dr it 


a little 


sound 

uninspired, and the game would probably 
be better off without 
they tend to be a boring, monotonous 
din on the ear drums 
thousand points. 


The 


Supplier 


Pr ice 


Reviewer 

Rating 


some of these; 


a few 


This game is an implementation on 


that I could fully 
recommend this game to all but the most 
persistant of games players. If you do 
play this game, but find the sound 
effects unpleasant, *FX210,1 typed in 

before the CHAIN 
the sound. (Note: don't press Break, as 

this will cancel the effect of this.) 


I don't 


the Electron of the classic arcade game 


It runs in Mode 5 (and 
hence only uses four colours), and 

some attractively designed 
characters. The movement in the game is 

smooth and flicker 


Space Invaders. 


lilt 


will turn off all 


slow down noticably when you are firing 
and a 'mothership' 


■ 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


M.Tilley 

machine code program is required to reside in the page starting at address 
&E00, preface it with the two empty bytes (at &E00 and &E01) and make &E02 the first 
address used. If this is not done, pressing the Break key will destroy the first two 
bytes of the program. (If &0D and &FF are inserted into 
then the message Bad Program will no longer appear). 


MACHINE CODE AT &E00 


If a 


addresses &E00 and &E01, 
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George Foot 

If you're trying to use an 80 column Mode display and finding it difficult to 
read, try reversing the foreground and background colours. Black text on a white 
background is sometimes more legible on a poor display. 

(In MODE 0, this can be done by entering VDUl9,0,7,0,0,0:VDU19,1,0,0,0,0) 


BLACK ON WHITE TEXT 
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ROTATING AND EXPANDING CHARACTERS 


bv P. Man hire 


This is a collection of short routines in assembly code which will 

allow any printable character (alphanumeric or user defined) 
rotated or enlarged in any position on the screen. 


to be 


The routines described here can be 
used in many ways, for example: 


code is subdivided into five routines 

which may each be called separately. 
The five calls and their functions 
given in the table. 


(1) Produce quadruple 

text in all modes. 

(2) Producing new character 

defin- itions (for games 

It is possible to 
produce giant invaders or 

frogs 

munehy-men or 

from previous 
definitions 


If 


the complete 
it results in 
from the keyboard 

in a 


you 

demonstration program, 
any letter 

being printed to the 


run 


E 


variety of ways 

inverted and expanded 
this 


reflected, rotated, 


inver ted 


or 


Inspection of 

program will show how to call and 
use the various routines, but here 

a few additional examples and notes on 


rotating 
whatever, 

character 

without having to work 
out the new definitions. 


their use 


(3) Labelling 


the vertical 
axes of graphs, diagrams. 


All 


must 

begin by setting X% equal 
to the ASCII code of the 
character to be manipulated 
(it can be one that you 
have defined yourself in 
the range 224 to 255) and 
then calling Getchr. Use 
the Electron User Guide, 


ions 


The program listed at the end of the 

article is in two parts. The assembly 
code which manipulates characters is 

contained in the procedure PROCassemble 

from line 1000 to 1730. It is 

this procedure that should be added to 
your own programs to incorporate the 

rotate and expand routines. The main 
program, from lines 10 to 260 provides 

a short demonstration of the 


page 285 to get ASCII codes 


a 


if 


- eg. ASCII 75 
you want to manipulate your 
own 


K M . 


If 


first 

define them with VDU23 (see 
User Guide page 93), and 

the 
that you 
have chosen (avoid values 

to 254 since these are 


of 


routines. Type the whole program 


in and save it 


to 


cassette. You rray 


then 

character number 


X% 


to 


also wish to save the procedure 

separately using *SPOOL (delete lines 
10 to 260 first) so that you can use 

EXEC to append this procedure to any 
of your own programs. This technique 
was explained in the article on 
functions and procedures in ELBUG 




250 


* 


used by this program). 


To take a real example, 

we will manipulate a space 
invader. These steps assume 

that the 

PROCassemble 

loaded into memory 

and the machine 
assembled by typing: 

PROCassemble <return> 


procedure 
ha s been 

first 


To use the rotate and expand 
routines, the procedure PROCassemble 
must first be called to assemble the 
machine code at &A00, and this is done 
in the demonstration program at line 

This area of memory is not 

and is 


100 . 

normally used by the Electron 
thus available to the user. You can 

by altering line 
Note 1 later). The machine 


change this address 


350 


Volume-1 Issue 7 


JUNE 1984 


ELBUG 





















17 


ASSEMBLER PROCEDURES 


This reads the dot pattern of any character into memory at locations &71 to 
&78 and &81 to &88. To use it; first set X% to the ASCII code of the 
character you want to manipulate and then CALL Getchr. 

This performs a VDU 23 call to define a character with the manipulated 

character in &81 to &88. To use it; first set X% to the ASCII code of the 
character you want to define. 


Getchr 


Putchr 


This rotates the character read by Getchr 


ANTICLOCKWISE by 90 degrees. 

CHR$250 is always defined as the rotated character but Rot followed by Put 
will define any other character. 

This inverts the character read by Getchr (ie. like the reflection in a pool, 
of water). CHR$250 is always defined as the inverted character but Invert 
followed by Put will define any other character. 

This takes the character read by Getchr and expands it to fill a block of 
four characters {always CHR$251 to CHR$254). 


Rot 


Invert 


Expand 


» i . i I 4 ■' * * * 4 * 


-i 


■ * I * 4 + i 


l - 
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■ ■ 


4 4- 


■ ¥ ' * i ■ 
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A b- 4- A- 4- ir 9- * | ■ | 

* # 4 t 


9 9 4 
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fl l I « I i > f # 
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* # m 
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9 9 ■ • m m 




1 


1 


■ ■ m # 9 I- -I- * 1 m + I- 9 fl 4- I 4 i A A 


4 4 I b 


* m i- a i 
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A A 
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■ 


■ 4 


m 


■ 


i 


i 


to delete the 


way to print the 

expanded character is 
variable say 'character^ 


NEW <return> 


Type 


unassembled version of the procedure 

the lines below. Line 


to define 


a 


before entering 


I 


as follows: 


10 below creates the space invader as 
character 224 (try executing VDU224 

after this in modes 4 or 5). Line 20 

the character in the locations 


character$=CHR$251 +CHR$252-K:HR$10+CHRS8 
+CHR$8+CHR$253+CHR$254 


The characters with ASCII values 10 and 
8 move the cursor down one line and 
back two positions to complete the 

bottom two characters making up the 
block of four. Then typing: 


reserved by the manipulator routine. To 
rotate the invader you simply call the 
routine 

rotation and inversion routines 
and 


(in line 30 below). The 

Rot’ 


1 


l 


Rot 


l 


define the new character 
as character 250, so to print it, line 


1 


1 


Invert 


40 is used below: 


PRINT characters <return> 


I 


a 


a 


A 


* 


* 


* * m m 4 

■- A P 

9 A 


1 


i 


m * 


9 


9 


9 


a 


u 




■ 9 


A 


* '* I * 


1- A 4- 
* * * 


A 


♦ 9 


A 9 
i 4 


-a 


9 4 v m 


9 


f 


p 


t 


* M W W * 




"P 4 A 


pi 


* 4 


A- m 


* A 


m 


A A 


«£ 


9 9 


9 


9 


a 


m 


will print the expanded character. This 
could be positioned anywhere on the 
screen using PRINT TAB instead of just 
PRINT. 


10 VDU23,224,60,126,219,255,126,60,66,36 

20 X%=224:CALL Getchr 
30 CALL Rot 
40 PRINT CHR$250 


Here are two further examples: 


X%=ASC"W":CALL Getchr:CALL Rot:PRINT CH 
R$250 


To turn it on its head, add: 


50 X%=250:CALL Getchr 
60 CALL Rot 
70 PRINT CHR5250 


would print a letter "W" 


on its side. 


PRINT"£":X%=ASC("£"):CALL Getchr:X%=250 
:CALL Rot:CALL Getchr:CALL Expand: PRIN 
T CHR$251;CHR$252'CHR$253;CHR$254 


4 m » a 


■ A r m 

m m 9 m 


4 9 


4 


A i 


A 


A A 9 9 * + ■ # 9 ■-9 

'V 4 


m , m m m 

a » a a 


4 a 9 a 
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A 4 4- 
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9 9 9 9 9 
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4 
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a a a a 


9 


a 


■ 


9 


l 4 


« m m 


■ 4 


A 


h A A # - 


4 


I 


r 


This picks up the rotated invader, and 


would produce: 


rotates it once again. 


The following sequence will produce 
an expanded version: 


* 


m 


X%=224:CALL Getchr:CALL Expand 


This 

into a block of four characters 
251 , 

maintaining the shape. 


expands the original character 

(ASCII 

253 and 254) while 


NOTE 1 : The code is loaded between &A00 

and &AFF. This APPEARS to be safe but 
if you do not trust this you must 


/ 


KLBUG 


JUNK l‘J84 


Volume-1 Issue 7 















18 


200 X%=250:FOR I%=0 TO 3:CALL Rot:PRI 
NT TAB(2+I%*5,12);CHR$250:CALL GetchrrN 


done by changing line 350 
PROCassemble from P%=&A00 to P%=(new 
location) 


in 


EXT 


210 X%=250:CALL Getchr:CALL Invert:CA 
LL Getchr:FOR 11=0 TO 3 

220 CALL Rot::PRINT TAB(2+I%*5,17);CH 
R$250:CALL Getchr:NEXT 

230 X%=ASC(C$):CALL Getchr:X%=250 

240 FOR I%=0 TO 3:CALL Rot:CALL Getch 
r:CALL Expand:PRINT TAB(2+I%*5,22);B$:C 

ALL Getchr:NEXT 

250 COLOUR3:PRINT TAB(4,6);"or # to s 
top":GOTO 140 
260 : 

1000 DEFPROCassemble 
1010 REM Assembles code at &A00 
1020 REM CALLS NAME 

1030 REM Getchr 

1040 REM Rot 

1050 REM Putchr 

1060 REM Invert 

1070 REM Expand 

1080 FOR J%=0 TO 3 STEP 3 
1090 P%=&A00 
1100 [OPT 0 
1110 .Getchr 
1120 V*** 

1130 STX &70:STX &80:LDX#&70:LDY #0:LD 
A #10 

1140 JSR &FFF1 :LDX#Sr80:LDY #0:LDA #10 
1150 JSR &FFF1:RTS 
1160 .Rot 
1170 V*** 

1180 LDX #&71:LDY #&88 

1190 .LoopiROL 0, X:TXA:STY &79:LDX &79 

1200 ROL 0,X:TAX:INX:CPX #&79:BNE Loop 

1210 LDX #&71 :DEY:CPY #&80:BNE Loop 

1220 LDX #250 

1230 .Putchr 

1240 \ 

1250 LDA #23:JSR &FFEE 

1260 TXA:JSR &FFEE 
1270 LDX #&81 

1280 .Loop2:LDA 0,X:JSR &FFEE 

1290 INX:CPX #&89:BNE Loop2:RTS 

1300 .Invert 
1310 LDX #&71:LDY #&88 

1320 \* 

1330 .Loop3 
1340 LDA 0, X:STA 0,Y 
1350 INX:DEY:CPY #&80:BNE Loop3 
1360 LDX #250 

1370 JMP Putchr 
1380 .Expand 

1390 \* 

1400 LDX #251 :STX&8E 
1410 LDX #0:STX &8C:STX &8D 
1420 LDX #&71:STX &8A 
1430 LDX #&81:STX &8B 
1440 JSR Qchr 


without 

the BASIC assembler. This is done by 
running the program as listed and then 
typing: 


NOTE 2: The code can be saved 


*SAVE"CODE M A00 B00 A00 <return> 


The code will then be saved on tape. To 


reload it directly into memory type: 


*LOAD"CODE" <return> 


and 


Play' on 


ADDRESS 

&A00 

&A1 7 

&A33 

&A4D 

&A5D 


will not 

able to call the machine code 
procedures by name {Getchr etc). You 

must 

statements in PROCassemble instead. For 
example, use CALL &A5D instead of CALL 
Expand. 


recorder. If you do this you 


be 


the REM 


■k * ★ w 


10 REM PROGRAM CHMAN 
20 REM AUTHOR P.Manhire 
30 REM VERSION E0.1 

40 REM ELBUG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 


JUNE 1984 


60 : 


■k -k ± 


100 PROCassemble 

110 A$=CHR$8+CHR$8+CHR$10 

120 BS=CHR$251+CHR$252+A$+CHR$2534CHR 


$254 


130 MODES:VDU19,2,5,0,0,0,19,3,6,0,0,0 
140 PRINT TAB(4,5);"Press any Key":C$ 

GETS 

150 IF C$="# n THEN MODE6:END 
160 PRINT TAB(0,10);"ROTATION" 

170 PRINT TAB (0,1 5) REFLECT ION" 

180 PRINT TAB(0,20);"EXPANSION 
190 COLOUR2:X%=ASC(C$):CALL Getchr 


k k k 


it 
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1600 LDX &8A:ROL 0,X:LDX Sr8B:JSR Enter 


1460 LDX #0:STX &8C:STX &8D 


1610 LDX &8C:INX:STX &8C:CPX #4 


1470 LDX #&;i:STX &8A 


1620 BNE Loops:LDX #0:STX &8C:LDX &8A 


1480 LDX #&81:STX &8B:JSR Qchr 


1630 IMX:STX &8A:LDX &8B:INX:INX 


1640 STX &8B:LDX &8D:INX:STX &8D 
1650 CPX #4:BNE Loop5:LDX &8E:JSR Putc 


1500 LDX #0:STX &8C:STX &8D 


hr 


1520 LDX #&81:STX &8B :JSR Qchr 


1540 LDX #0:STX &8C:STX &8D 


1680 CLC:ROL 0,X:CLC:ROL 0,X:INX 


1550 LDX #&75:STX &8A 


1690 CLC:ROL 0,X:CLC:ROL 0,X:RTS 


1700 .Full 


1560 LDX #&81:STX &8B :JSR Qchr 


1710 SEC:ROL 0,X:SEC:ROL 0,X:INX 


1570 RTS 
1580 .Qchr 
1590 .Loops 


1720 SEC:ROL 0,X:SEC:ROL 0,X:RTS 
1730 ]:NEXT:ENDPROC 


NIAGARA FALLS BRAINTEASER WINNER 


In the supplement included with the 
March issue of 
Bra inteaser competition on the theme of 
crossing Niagara Falls. The winning 
Electron entry was from Kevin Allen who 
has now received his £20 prize, and the 

display produced by his winning 
program is shown in the illustration. 

Unfortunately, this cannot show the man 
actually moving along the rope, nor the 

falling 

winning program. 


list here Kevin's 


wa ter. We 


10 REM PROGRAM NIAGARA 
20 REM AUTHOR Kevin Allen 
30 REM ELBUG JUNE 1984 
40 : 

100 MODE 2:PROCsetup:PROCscreen 
110 REPEAT 

120 PROCwater:VDU19,10,1%;0; 

130 IF I%=4;I%=7:ELSE I%=4 
140 VDU 19,9,I%;0; 

150 SOUND 0,-15,4,6+RND(4):PROGman 
160 UNTIL FALSE 

170 : 

1000 DEF PROCman:X%=X%+32 

1010 IF X%>1224:MOVE X%-32,716:PRINTMA 

N$:X%=32:MOVE X%,716:PRINTMAN$:ENDPROC 

1020 IF X%<192 OR X%>1024:MOVE X%-32,7 
16:PRINT MAN$:MOVE X% f 716:IF MAN$=MAN2$ 

:MAN$-MAN1$:PRINT MAN$:ENDPROC 
1030 IF X%<1 92 OR X%>1024:IF MAN$OMAN 
2$:MAN$=MAN2$:PRINT MAN$:ENDPROC 
1040 X=(X%-576)*2:Y%=((141.42*(EXP(A*X 
)+EXP(-A*X)))-(141.42)JDIV2+61 6 
1050 IF X%=192:y%=716 
1060 MOVE X%-32,y%:PRINT MANS 
1070 MAN$=MAN3$ 

1080 MOVE X%,Y%:PRINT MAN$:y%=Y% 

1090 ENDPROC 


1100 : 

1110 DEF PROCwater 
1120 VDU 4,28,3,29,16,12 
1130 SOUND 0 
1140 PRINT TAR{RND(14)—1,8);CHR$(240); 
TAB(RND(14)-1,7);CHR$(240);TAB{RND(14)— 
1,7);CHR$(240) 

1150 VDU30,11,28,7,29,12,12,30,11,26,5 
1160 QCOL 0,7 

1170 TIMERS:REPEAT:PLOT 69,RND{832)+19 
2,632+RND(4):UNTIL TIME>7 
1180 ENDPROC 

1190 : 

1200 DEF PROCsetup 

1210 VDU 23,1,0;0;0;0; 

1220 VDU 23,240,16,0,0,16,16,0,0,16 

1230 VDU 23,241,255,60,96,0,96,60,255, 


1 5,4,RND(3)+6 


96 


1240 VDU 23,242,0,0,12,18,33,66,128,0 
1250 VDU 23,243,16,16,40,68,131,0,0,0 
1260 VDU 23,244,0,16,28,24,16,0,0,32 
1270 VDU 23,245,60,0,0,0,0,0,0,24 
1280 VDU 23,246,0,8,0,0,0,56,56,24 
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ELECTRON GRAPHICS (Part 7) 


by Mike Williams 


This month, in our series on Electron Graphics, we shall look at 

some more of the many variations that are possible with the PLOT 
instruction, that has already provided us with 

procedures. 


several very useful 


So far, we have looked at two very 

of the PLOT instruction 
use of PLOT85 to display 
solid looking triangles, and PL0T77 
which we can use to fill or colour any 

shape. At this 
realise that PLOT is a general purpose 
graphics instruction unlike the MOVE 
and DRAW instructions that we looked at 

the 


1020 PLOT 1,0,size 
1030 PLOT 1,size,0 

1040 PLOT 1,0,-size 
1050 PLOT 1,-size,0 

1060 ENDPROC 


specific 


in Basic, the 


stage it is useful to 


If you type in either of these 

remember 

immediate mode, provided 
a graphics mode first, by 
typing PROCsquare followed by 

in brackets. For 


that you can test 


them out in 
you 
just 


earlier article. In 

instruc tion PLOT0,X,Y 


in an 
general 

exactly equivalent to MOVE X,Y, and 
PL0T5,X,Y is exactly the same as DRAW 


is 


example: 

MODE 4 


<return> 


X, Y. 


PROCsquare(200,640,512) 


<return> 

This will draw a square of side 200 

with its bottom left hand corner in 
position (640,512). 


REL ATIV E PLOTTING 

In the past, whenever we have 

to a point on the 
we have specified a position 

(X,Y) on the screen where X and Y 
the horizontal 


wanted 


In the second version of the 

procedure, I have used PLOT 
instructions throughout, although I 

could just as easily have used a MOVE 
instruction at line 1010 instead. The 

instructions used here to draw the 
square could be written as follows: 
from the starting point, draw a 

vertically upwards, 
then a line the same 


and vertical distances 


from the origin (0,0). This is called 
an absolute reference or position. The 

is normally at the bottom 

of the screen, though 

did for 

VDU29 


point (0,0) 

left hand corner 
you can change this, 
circle plotting, using the 
instruction. For example, you may 
remember the procedure we wrote for 
drawing a square: 


we 


tl 


si ze 


horizontally, then another line the 
same distance but now downwards (hence 
the minus sign), and lastly a fourth 
line 


1000 DEF PROCsquare(size,x,y) 

1010 MOVE x,y 
1020 DRAW x,y+size 

1030 DRAW x+size,y+size 
1040 DRAW x+size,y 
1050 DRAW x,y 
1060 ENDPROC 


the same distance again back 


to 


the starting point (to the left, and 
thus again minus)". At no time do we 
use the actual position of any corner 

the 


of 


everything is 


square 
specified relatively. 


There is a second way of specifying 
a point on the screen, by giving the 
distance from the last point visited 
by the graphics cursor, rather than the 
absolute or fixed 
PL0T1 instead of DRAW (or PL0T5). If we 
rewrite the procedure above, it will 

read as follows: 


Whether you prefer the first or the 

second method is, I think, largely a 
matter of personal choice, though some 
might argue that the second method 
involves less arithmetic, and is thus 
both simpler and faster. Just decide 
which method you prefer to use, but 
also be guided by the circumstances 
and always try to choose the simplest 
method if a choice is available. 


position. 


This uses 


1000 DEF PROCsquare (size,x,y) 
1010 PLOT 0,x,y 
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DOT TED LINES OR SOLID LINES 

Another option available with the 

instruction is the drawing of 
instead of the more usual solid 
lines. Adding 6 to the 'PLOT' number 
will produce a dotted rather than a 
solid line. Thus PLOT17 is the same as 
PL0T1 (relative plotting) but with a 
dotted line, and PL0T21 is likewise 
similar to PLOTS (absolute plotting). 


PLOTTING POINTS 


Another useful variation on the PLOT 
instruction provides for the plotting 
of a point, rather than a line. Again 

the position of the point can either be 

absolute position on 

(using PLOT69) or relative 
to the last position (using PLOT65). 

This enables single points to be 
positioned anywhere you want on the 


PLOT 

dotted 


Although a PLOT instruction is 
normally listed with a specific 'PLOT' 

number, this can instead be replaced by 
a variable. For example, we will 

rewrite the last procedure so that it 
will draw a square with either a solid 
or a dotted line. We will do this by 
introducing an extra parameter, which 
I'll call 'type', which will have the 
value 0 for a square of solid lines, 
and l for a square with dotted lines. 


SUMMARY OlfLPL^r I NSTRUCTIONS 

All PLOT instructions have the same 
basic format of 


PLOT k,x,y 

where x,y is a relative or an absolute 
position 
determines 


and k 

the plotting function 

out. Those that we have so far 
described are as follows: 


the 


on 


carried 


Function _ 

Move relative to last point. 
Draw a solid line relative. 
Move to absolute position. 
(Same as MOVE x,y) 

Draw a solid line absolute. 

(Same as DRAW x,y) 

Draw a dotted line relative. 
Draw a dotted line absolute. 

Plot single point relative. 
Plot single point absolute. 

Fill left and right relative. 

Fill left and right absolute. 
Plot & fill triangle relative. 

Plot & fill triangle absolute. 


Value of k 


The revised version of our procedure 
is as follows: 


0 


1 


4 


1000 DEF PROCsquare(type,size,x,y) 
1010 LET t=l 6*type+l 
1020 PLOT 0,x,y 
1030 PLOT t,0,size 

1040 PLOT t,size,0 
1050 PLOT t,-size 
1060 PLOT t,-size,0 

1070 ENDPROC 


5 


17 


21 


65 


69 


73 


77 


81 


Remember that if you type this in, you 
can 
Thus: 


85 


it out in imnediate mode. 


PROCsqua re(0,400,200,200) 
would give a square of size 400 and in 
position (200,200) drawn with solid 
lines while 

PRQCsquareO ,400,600,600) 
would give a square of the same size in 
position (600,600) but drawn with 

dotted lines. 


not, of course, the only 
PLOT instructions available, as a quick 
glance at the User Guide will soon 
show. They are, however, the ones most 
commonly used. Note how most of the 
instructions are in pairs, for relative 
and absolute plotting, and that in each 
pair, the 'PLOT' numbers differ by 4 
exactly. Patterns like this can often 

be used to produce efficient and 
flexible programs. 


These 


The procedure first calculates the 

correct 'PLOT' number for the type of 
1 ine 

to the variable 
with the PLOT instruction 
dotted or solid lines. 

the 

variable is a very useful and flexible 

the PLOT instruction. Some 

surprising results may often be had 
when a little ingenuity is used. 


required, 


and assigns this value 


't'. This is then used 


Next month, 

we shall look at some 
interesting 
when we start manipulating colour. One 

that we shall describe, 
is how to make one moving object appear 
to travel behind, or in front of, 
stationary object. 


as already mentioned, 

of the 
available 


to give 
The facility to 
number with a 


replace 


'PLOT 


a 
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PLAY THE STOCK MARKET 


bv Nick Da\ 

A 


fancied your hand playing the stock market? Did you 


Have you 

ever want the opportunity to gamble somebody else's money away on 
the stock exchange, and did you feel that the whole business was a 
little too complicated to get to grips with? Well we'll give 
chance with this program. It's the computer's money, which is a good 

confined to a limited market for simplicity, and it’s 




fun. 


The computer gives you (yes, gives 

you) a thousand pounds to start with. 
It's then up 


M *1 M 


A 


’1 


"1 
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4 i fr 


£ £ * # §■ £ £ # 
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■tf 
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you to let your 
entrepreneurial skills have full reign, 
and sensibly invest that windfall to 

make more. You're given a choice of 
four companies to put money into, those 
being fictitious firms with familiar 
sounding names like 'Red' or 'Blue'. 
Monthly reports 
graphic form, from which you plan your 
financial strategy, and the computer 
will then, under your instructions, 
carry out the buying and selling of 
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shares as required 


A 


broker's instructions. It will prompt 
for all information needed from each 

player. When all the players have 
entered their transactions (and each 
must complete a minimum of three 
month) , the program will go into a 
quick calculation phase for that month. 
The graph returns to show the latest 


When you run the pogram it will ask 

you for the number of players (or 
investors). This may be from just one 
up to six. Then it will begin its first 
cycle by displaying a graph showing the 

of the four 
companies; a different colour for each. 

the transaction phase, 
where all the buying and selling is 

done, each player is given an 
opportunity to digest the graphic, and 
tabular information available to him. 


relative share prices 


Before entering 


» 


for 


Messrs. Red and Blue 


prices 


Then you'11 begin to get an idea about 
how 


you’ve done. This cycle 

once for every month 

during a year, and at the end of that 
year each broker's financial standing 


well 


repeats itself 


Separate tables of data are compiled on 


individual 


basis. 


Important 

information about a player's financial 

situation and share costs are presented 

an analytical format. Switching 
backwards and forwards between the two 


an 


is displayed for assessment. 


PROGRAM NOTES 

Two main procedures, PROCdrawgraph 
and PROCtable, 

drawing the graph and printing the 
results tables at the end of each 
month 

deal with the transaction phase. 


in 


» 


displays is easily done by pressing 'G 
for the graph, or 
table, until the player 


for 


1 


3 


I 


I 


for the data 


D 


/ 


* 


quite 


is 


satisfied he has a plan of action 


PROCask 


PROCtrans and PROCact 


f 


* 


The transaction phase is entered 

from the data display by typing *T', to 
sell off bought stocks or to buy more. 

The end of the transaction phase is 
marked by the pressing of the 'F' key, 

whereupon the program will return to a 
graph display and prompt for the next 


Two other procedures which could be 

applications 


useful 


other 

PROCwait and PROCprcol. Tne former is a 
delay loop that will wait for the 


in 


number of seconds that are given as the 
parameter, 

occasions, as here, when you may wish 


i 


w%', 


useful for those 
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340 END 
350 : 

360 ON ERROR OFF:MODE 6 
370 *FX11,20 
380 *FX4,0 

390 IF ERR017 THEN REPORT: PRINT" at 

line M ;£RL 
400 END 

410 : 

1000 DEF PROCjan 

1010 BP (1 ) =FNpr ice : RP (1) =FNpr ice 
1020 YP(1)=FNprice:GP(1)=FNprice 
1030 ENDPROC 
1040 : 

1050 DEF FNprice 
1060 h=RND(4)-1 
1070 =(h*l00)+RND(100)+50 
1080 : 

1090 DEF PROCsetup 
1100 VDU23;8202;0;0;0;:month%=0 
1110 RS=0:GS=0:YS=0:BS=0:trans=0 
1120 ENDPROC 

1130 : 

1140 DEF PROCdim 

1150 PROCdimon ths:VDU 2 3;82 02;0;0; 0; 
1160 DIM BP{12):DIM YP(1 2) 

1170 DIM GP (1 2) :DIM RP(12) 

1180 DIM cash(play%):DIM E(play%) 

1190 DIM RS(play%):DIM YS(piay%) 

1200 DIM GS(play%): DIM BS(play%) 

1210 DIM tsv(play%) 

1220 FOR turn%=l TO play% 

1230 cash(turn!)=100000 

1240 NEXT 

1250 DIM xdim(13):RESTORE 1290 
1260 FOR X%=1 TO 13 
1270 READ piace:xdim(X%)=place 
1280 NEXT 
1290 DATA 160,240 
1300 DATA 320,400,480,560 
1310 DATA 640,720,800,880 
1320 DATA 960,1040,1120,1200 

1330 DATA 1280 
1340 ENDPROC 

1350 : 

1360 DEF PROCdrawgraph 
1370 VDU23;8202;0;0;0; 

1380 PROCwin:GCOL0,0:VDU5: 

1390 MOVE160,1000:PRINT"J 
1400 MOVE160,1000:DRAWl60,384 
1410 DRAWl120,384:RESTORE 1510 
1420 FOR X%=240 TO 1100 STEP 80 
1430 MOVE X%,1000:READmS:PRINTm$ 

1440 MOVE X%,1000:PLOT21,X%,384 
1450 NEXT 
1460 P=0 

1470 FOR Y%=448 TO 960 STEP 64 
1480 P=P+1:MOVE 40,Y%:PRINT;P 
1490 MOVE 160,Y%:PLOT21,1120,Y% 

1500 NEXT 


i 


i 


GREEN 


1 1 


4 


RED 


Your stocks : 


188 worth: £ 169.88 


GREEN 


58 worth: £ 56.58 


RED 


40 worth: £ 144.80 


YELLOM 


28 worth: £ 94.59 


BLUE 


Total stock value 
Cash reserves 
Vou are worth 


464.89 

635.58 

1188.48 




Type -G- to see graph again 

or -T- to cormence transactions 


to display a message for 


time before changing it. 
PROCprcol prints numbers (the parameter 
'no') in column form by printing the 
integer part in a 
width, 

optionally printed (to print just the 
integer part, ' int' set to TRUE) but 
only to 2 places. 


period of 


specified 


field 


xp%'. 


The decimal part can be 


10 REM Program STOCKS 
20 REM Version El.2 

30 REM Author N.Day 
40 REM ELBUG June 1984 
50 REM Program subject to copyright 
60 : 

100 M0DE1 
110 *FX4,2 

120 ON ERROR GOTO 360 
130 INPUTTAB{5,12)"How many brokers 
,play% 

135 VDU23,224,-1 

140 PROCdim:PROCsetup:@%=&1 0 

150 REPEAT 

160 r!=0:g%=0:y%=0:b%=0 

170 month% c month%+l 

180 IF month! 1 *! THEN PROCjan 

190 IF month!=2 THEN PROCfebadj 

200 IF month!>2 THEN PROCadj 

210 FOR turn!=l TO play% 

220 REPEAT 

230 M0DE2:PR0Cdrawgraph:M0DEl 
240 *FX11,0 

250 PROCtable(turn!):PR0Cgraph 
260 UNTIL g$="T 
270 REPEAT 
280 PROCask 
290 UNTIL S$="F 
300 PROCwait(2) 

310 NEXT 

320 UNTIL month%=l2 
330 PROCend 


IV 


It 


It 


If 


AND trans>2 
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2040 DATA October/November,December 

2050 ENDPROC 
2060 : 

2070 DEF PROCtable(T%) 

2080 VDU23;8202;0;0;0; 

2090 VDUl 9,0,4,0,0,0:VDU19,3,2,0,0,0 
2100 COLOUR0:COLOUR!30 


1510 DATA F,M,A 
1520 DATA M,J,J,A 
1530 DATA S,0,N,D 

1540 VDU4:PROCplot(xdim(l),BP(1),6) 
1550 PROCplot(xdim (1),RP(1), 1) 

1560 PROCplot(xdim(l),YP(1),3) 

1570 PROCplot (xdim(l),GP(1),2) 

1580 IF month%>l THEN PROClines 
1590 PROCprint 

1600 IF month%=l2 THEN PROCwa i t(3): END 
PROC 

1610 REPEAT a$=GET$:UNTIL a$ 

1620 ENDPROC 

1630 : 

1640 DEF PROCplot(X%,P,C) 

1650 GCOL0,C:Y%=C({P/100)*16)*4)+384 

1660 PLOT69,X%+10,Y% 

1670 ENDPROC 
1680 : 

1690 DEF PROClines 
1700 FOR M%=2 TO month% 

1710 PROCdraw{xdim(M%),BP(M%),BP(M%-1) 


2110 PRINTTAB{1,1)STRINGS(38,CHRS224) 
2120 PRINTTAB(1,9)STRINGS(38,CHR$224) 
2130 PRINTTAB(4,13)STRINGS(35,CHRS224) 
2140 PRINTTAB(4,17)STRINGS(35,CHR$224) 
2150 PRINTTAB(4,5)STRINGS(35,CHR$224) 
2160 PRINTTAB(1 ,2)SPC(38) 

2170 PRINTTAB(1,10)SPC(38) 

2180 PRINTTAB(4,14)SPC(35) 

2190 PRINTTAB(4,18)SPC(35) 

2200 PRINTTAB(4,6)SPC(35) 

2210 PRINTTAB(2,2);months(month%); 


D 


Pr 


ices (in p.) 


2220 PRINTTAB(20,6)"BLUE"; 

2230 PROCprcol(7,BP(month%),TRUE) 

2240 PRINTTAB(2,10); 

2250 IF play%>l THEN PRINT"Broker numb 


6 ) 


n * 


;T%: 


1720 PROCdraw(xdim(M%),RP(M%),RP(M%-1) 


• It 


2260 PRINT Your stocks : 




2270 COLOUR! 

2280 PRINTTAB(5,6)"RED"; 

2290 PROCprcol(7,RP(month%),TRUE) 

2300 COLOUR3:COLOUR128 

2310 PRINTTAB(5,4)"GREEN"; 

2320 PROCprcol(5,GP(month%),TRUE) 

2330 PRINTTAB(5,12);"GREEN"; 

2340 PROCprcol(6,GS(T%),TRUE) 

2350 PRINT 
2360 PROCprcol(3,(GS(T%)*GP(month%))/I 
00,FALSE) 

2370 COLOUR2 

2380 PRINTTAB(20,4)"YELLOW"; 

2390 PROCprcol(5,YP(month%),TRUE) 

2400 COLOURl:COLOUR!30 
2410 PRINTTAB(5,14);"RED"; 

2420 PROCprcol{8,RS{T%),TRUE) 

2430 PRINT 
2440 PROCprcol(3,(RS(T%)*RP(month%))/I 
00,FALSE) 

2450 COLOUR2:COLOURl28 
2460 PRINTTAB(5,16);"YELLOW"; 

2470 PROCprcol(5,YS(T%),TRUE) 

2480 PRINT 
2490 PROCprcol(3,(YS(T%)*YP(month%))/l 

00,FALSE) 

2500 COLOUR0:COLOURl30 
2510 PRINTTAB(5,18);"BLUE"; 

2520 PROCprcol(7,BS(T%),TRUE) 

2530 PRINT 
2540 PROCprcol(3,(BS(T%)*BP(month%))/I 
00,FALSE) 

2550 COLOUR2:COLOURl28 


1730 PROCdraw(xdim(M%),YP(M%),YP(M%-1) 


,3) 


1740 PROCdraw(xdim(M%),GP(M%),GP(M%-1) 


1 2 ) 


1750 NEXT 
1760 ENDPROC 

1770 : 

1780 DEF PROCdraw(X%,P,L,C) 

1790 GCOL0,C:Y%=(((L/l 00)*1 6)*4)+384 
1800 MOVE xdim(M%-l),Y% 

1810 Y%=({(P/1 00)*16)*4)+384 
1820 PL0T5,X%+1 0,Y% 

1830 ENDPROC 
1840 : 

1850 DEF PROCprint 

1860 IF play%>l THEN PRINTTAB (2,22 )"BR 
OKER NUMBER ";turn%' 

1870 PRINTmonthS(month%); 

1880 COLOURl:PRINTTAB(2,27);RP(month%); 

;GP(month%); 
;YP(month%); 
;BP(month%) 1 


worth: £"; 


worth: £"; 


prices: 


1890 COLOUR2:PRINT 
1900 COLOUR3:PRINT 

1910 COLOUR6:PRINT 
1920-IF monthl-l 2 THEN ENDPROC 


1930 COLOUR7:PRINTTAB(1,30)"Type -D- f 


worth: £"; 


or details 


1940 ENDPROC 
1950 : 

1960 DEF PROCdimonths 

1970 DIM months(12):RESTORE 2010 

1980 FOR M%=1 TO 12 

1990 READ monthS:months(M%)=month$ 

2000 NEXT 

2010 DATA January,February,March 
2020 DATA Apri1,May,June 

2030 DATA July,August,September 


worth: £"; 
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2560 tsv(T%)={(GS(T%)*GP{month%))+(YS( 

T%)*YP(month%))+(BS(T%)*BP(month%))+(RS 
(T%)*RP(month!)))/I 00 

2570 PRINTTAB(4,22)"Total stock value 


2910 PRINTTAB(1,27) 
hree transactions! 


You must make t 
TAB(1,28)SPC(38) 


2920 VDU7:PROCwait(3) 

2930 C0L0UR2:C0U)UR128 

2940 ENDPROC 
2950 : 

2960 DEF PROCwin:VDU24,10;364;1270;1020 

;:VDU28,0,31,19,23:GCOL0,135:CLG:ENDPROC 
2970 : 

2980 DEF PROCact 
2990 REPEAT 

3000 G%=TRUE:IF S%=0 THEN t$="B" 

3010 IF S%<>0 THEN PRINTTAB(1,27) SPC(3 
8):PRINTTAB(1,27)"Are you buying or sel 
ling in "c$;"?":PRINTTAB(1,28)SPC(38) :P 
RINTTABO ,28) SPC(18) ;"(B/S) ":t$=GET$ 

3020 IF t$ =,, B M THEN tran$= ,, buy" 

3030 IF t$="S n THEN tran$="sell n 
3040 PRINTTAB(1,27)SPC(38):PRINTTAB(1, 
27)"INPUT the number of ";c$; 

PRINTTAB(1,28)SPC(38):PRINTTAB<1,28)" 
you wish to tran$;:INPUTchange 
3050 IF change<0 THEM PRINTTAB(30,28)" 
SILLY!"iPROCwait(2):G%=FALS E 
3060 IF t$= ,, S" AND change>S% THEN PROC 
warn("SHARES"):G%=FALSE 
3070 IF t$="B" AND (change*?!) >C% THEN 
PROCwarn("cash"):G%=FALSE 
3080 UNTIL G%=TRUE 
3090 IF t$="S" THEN change=-change 
3100 ENDPROC 
3110 : 

3120 DEF PROCwarn(W$) 

3130 COLOUR0:COLOUR!30 
3140 VDU7:PRINTTAB(1,27)SPC(9);"Insuff 

icient ";W$;SPC(12):PRINTTAB(1,28)SPC(3 
8):PROCwait(3) 

3150 COLOUR2:COLOUR128 
3160 ENDPROC 
3170 : 

3180 DEF PROCfebadj 

3190 RP(month%)=RP(month!-l)+FNadjl(RP 
(month%-l)) 

3200 GP(month%)=GP(month!-1)+FNadj1(GP 
(month%-l)) 

3210 YP(month%)=YP(month!-1)+FNadj1(YP 

(month%-l)) 

3220 BP(month!)=BP(month!-!)+FNadj1(BP 
(month!-l)) 

3230 ENDPROC 
3240 : 

3250 DEF PROCadj 

3260 RP(month!)=RP(month!-1)+FNadj2(RP 
(month%-l),RP(month%-2)) 

3270 GP (month!)=GP(month!-l)+FNadj2(GP 
(month%-l),GP(month%-2)) 

3280 YP(month!)=YP(month!-!)+FNadj2(YP 
(month!-!),YP(month%-2)) 


* 

* f 


2580 PROCprcol(5,tsv(T%),FALSE) 
2590 PRINTTAB(4,23)"Cash reserves 


: £"; 


2600 PROCprcol(5,cash(T%)/100,FALSE) 
2610 PRINTTAB(4,24)"You are worth 


- CH * 

• E, / 


2620 PROCprcol(5,tsv(T%)+(cash(T%)/100 
),FALSE) 

2630 ENDPROC 


2640 : 

2650 DEF PROCgraph 

2660 PRINTTAB(1,27)"Type -G 
aph again 
actions" 

2670 move=0:g$=GET$ 

2680 ENDPROC" 

2690 : 

2700 DEF PROCask 
2710 trans=r%+g%+y%+b% 

2720 PRINTTAB(1,27)"Which share would 
you like to deal in?" 

2730 PRINTTAB(1,28)"-R / G / Y / B- or 
-F- for finished " 

2740 s$=GET$ 

2750 IF s$="R" THEN PROCtrans( "RED",RP 
(month%) ,RS (turn!),cash(turn%)):cash(tu 
rn%)=R%:RS(turn%)=RS(turn%)+change:IF r 
%=0 AND change<>0 THEN r%=l 

2760 IF S$="G" THEN PROCtrans("GREEN", 
GP(month%),GS(turn%),cash(turn%)):cash( 
turn%)=R%:GS(turn%)=GS(turn%)+change:IF 
g%=0 AND change<>0 THEN g%-l 
2770 IF s$="Y" THEN PROCtrans("YELLOW" 
,YP(month%),YS(turn%),cash(turn%)):cash 
(turn!)=R%:YS(turn%)=YS(turn%)+change:I 
F y%=0 AND change<>0 THEN y%=l 
2780 IF s$="B"’THEN PROCtrans("BLUE",B 
P(month!),BS(turn!),cash(turn%)):cash(t 
urn!)=R!:BS(turn!)=BS(turn!)+change:IF 
b%=0 AND change<>0 THEN b!=l 
2790 PROCtabIe(turn%) 

2800 IF s$="F" AND trans<3 THEN PROCwa 
rntrans 

2810 PRINTTAB(1,27);SPC(38)TAB{1,28);S 

PC (38) 

2820 ENDPROC 
2830 : 

2840 DEF PROCtrans(c$,P!,S!,C!) 

2850 REPEAT:PROCact:R!=C%-(change*P%): 

IF R%<1 THEN PROCwarn("CASH") 

2860 UNTIL R%>0 
2870 ENDPROC 

2880 : 

2890 DEF PROCwarntrans 
2900 COLOUR0:COLOUR130 


to see gr 


if i II 


or -T- to commence trans 


H * 
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3560 E(turn%)=(cash(turn%)-100000)/I00 
3570 a$="made M :b$ 

3580 IF E(turn%)>1000 THEN b$="Well do 

ne!" 

3590 IF cash(turn%)<100000 THEN a$= M lo 
st”:E{turn%) = (100000-cash(turn!))/I00:b 
$="Bankrupt! 

3600 CLS:CLG:@%=&20206 
3610 PRINTTAB(6,7)"Broker numberPRO 
Cprcol(2,turn%,TRUE) 

3615 PRINT", you have ";a$ 

3616 PRINTTAB(14,9)" £ M ;E(turn%); M . 


3290 BP (month%) =BP (month%--1) +FNadj2 (BP 
(month%-l),BP{month%-2)) 

3300 ENDPROC 
3310 : 

3320 DEF FNadjl(P%) 

3330 R=RND(1):F%=RND(3)+1 
3340 IF P%<5 THEN P%=50 
3350 Q%=RND(P%/F%) 

3360 IF R<.5 THEN Q%=-Q% 

3370 IF R<.2 THEN Q%=RND(200) 

3380 IF Q%<-P%+1 THEN Q%=RND(50) 

3390 IF P%+Q%>900 THEN Q%=Q%-RND((P5+Q 
%)-900) 

3400 =Q% 

3410 : 

3420 DEF FNadj2(P%,L%) 

3430 N%=P% 

3440 R=RND(1):F%=RND(3)+1 

3450 IF P%<100 THEN P%=100:F%=RND(2) 
3460 Q%=RND(P%/F%) 

3470 IF R<.05 THEN Q%=RND(200) 

3480 IF R<.2 THEN Q%=-Q% 

3490 IF N%<L% THEN Q%=-Q% 

3500 IF Q%<-N%+1 THEN 3460 
3510 IF P%+Q%>890 THEN 3440 

3520 =Q% 

3530 : 

3540 DEF PROCend 

3550 FOR turn%=l TO play% 


II IV 


II 


b$ 


3617 PROCwait(10) 

3620 NEXT 
3630 ENDPROC 
3640 : 

3650 DEF PROCwait(W%) :now=TIME:REPEAT:U 
NTILTIME=now+ (W%*1 00) : ENDPROC 

3660 : 

3670 DEF PROCprcol(xp%,no,int) 

3680 PRINTSPC(xp%-LEN(STR${INT(no)))+1 
)STR$(INT(no)); 

3690 IF int THEN ENDPROC 

3700 dec-no-INT(no):t%-INT(l0*dec) 

3710 u%-INT((dec*l0-t%)*10) 

3720 PRINT".”;LEFT$(STR$(t%) ,1) ;LEFT$( 
STR$(u%),1) 

3730 ENDPROC 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 
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FUNCTION KEY TO LIST A PROGRAM IN PAGED MODE 


A function key may be given a short definition that will list a program in paged 
mode automatically every time Func-f0 is pressed: 

*K.0INL.|M <Return> 

character can be obtained by pressing Shift and the right cursor key). 

*K.0 


I 


i 


{The 
{Explanation: 


*KEY 0 

CNTRL N, for paged mode 
LIST, abbreviated 

CNTRL M, end of function key definition). 
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C.Lyne 

The approximate loading time from cassette can be given in 
statement PRINT &####/&4E, where #### is the program length printed on the screen 
after a sample load. 
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P.Mabey 


ON ERROR OFF 


Peter Mabey suggests that readers be reminded that when 'writing an error trap 

routine, the first statement in the routine should turn off error trapping. 
Otherwise any mistake therein will make it loop back to the beginning, so that the 

only way to stop it is to Break, ie.: 

10 ON ERROR GOTO 900 


20 REM the rest of the program 
900 ON ERROR OFF 
910 REM error handling routine 

his is always incorporated into ELBUG programs and for a generally useful error 
handling routine, see how one of the published programs is written. £ 
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SCREEN FREEZER 

by David Graham and Michael Cope 


Have you ever wished you could take a pause in the middle of your 

favourite arcade game - either because you have been called away to 
the telephone in the middle of a high-scoring run, or simply so that 

you can examine the screen in peace while you work out a strategy 
for the next phase of the game. FREEZER allows you to do just that. 


FREEZER is a short machine code 

routine that is loaded before a game or 
other program to provide a pause 
control. It works perfectly well on 
most of the arcade games that we have 
used it with - see table - and it works 
equally well with Basic or machine code 
programs. 


successfully frozen: 


Invaders 

Centibug 


Superior Software 
Superior Software 


Fruit Machine Superior Software 


Swoop 

Croaker 


Program Power 
Program Power 


Note that 


one 


the 


above 


may 


that you 


have 


different version 


the game 


Monsters 


Acornsoft 


frozen. 


Once FREEZER is activated, pressing 
the '-’ (minus) key during the playing 
of most games will halt the program. 
Pressing it a second time will resume 
the game. If your game uses any sound 
effects then these will also be 
'frozen'. The delay button may be 

pressed again to produce further 
delays. 

Pressing Break disables the routine, 

but it may be re-enabled by typing CALL 
&A00 <return>. A beep indicates that it 

has been successfully called. 

DETAILED INSTRUCTIONS 

Type in the program, and save it on 
cassette. The main routine is in 

assembler and this is converted to 
machine code which must be stored in a 
safe area of memory, where it will not 




for the address of the memory area to 
be used. This may be in hex or decimal, 

but hex values should be preceded by 
■&’. Generally speaking you should 
enter &A00 here, unless you wish to 
locate the code elsewhere (if you 
suspect that your arcade game uses this 
particular memory space). You should 
then see the assembly listing scroll on 
the screen, and a beep should be heard. 
The machine should now behave exactly 
as normal, until you press the '- 1 key. 
It should then freeze completely until 
you press the key again, when 
everything will continue as before. 


Once the routine is working you 
should save a copy of the machine code 
by typing: 

*SAVE FREEZER A00 A40 <return> 

You can now reload the code at any time 
by using *RUN FREEZER - again a beep 
will indicate successful execution. 

Once the code is in your machine, 
and enabled, you can load and run any 
game you wish. Remember though, to 
execute CALL &A00 after pressing Break 
at any time. 
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CHANGING THE FREEZER KEY 

To change the key used to control 
the freeze action, alter the value in 
line 130 to equal the positive value of 
the negative INKEY value plus 1 (see 
User Guide page 159). For example, to 

F f , find the negative INKEY 
value of 'F', which is -68, add 1 to 
this giving -67 (not -69), and dropping 
the sign results in the value of 67. 


This value should then be included 
line 130 in place 
This rather complicated process 


at 


of the 23 listed. 


m 


IS 


the 


internal 


representation of a key differs from 
the value usually seen in a 
program. The negative INKEY values 
all on page 159 of the User Guide. 


use key 


1 


# 


* 


# 


# 1 


ft 


ft 


ft 


ft 


ft ft 


ft 


a. 


ft 


* 
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ft 
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* ft 
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ft ft 


■ ft 
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* ft -ft ft ft * * ft 

ft ft ft » ft ft ft 
ft -ft ft ft- -ft ft ft * i* ft 

ft ft ft ft * ft ft ft 


ft ft 


ft 


ft M ft ft 


ft 


ft ft A' ft efe 


ft 


ft 
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ft ft ft 
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ft 


* 


ft 
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# 


ft 


ft 


I 1 
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ft 4 ft 
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W9 
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ft ft ft ft 
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ft 4 P ft I 


ft • ft 
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ft 


ft ft 
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m * 

■4 ft 4 -ft ft 
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ft ■# 4 
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* * i * ft 


, 4 
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ft 


ft 


ft ft 


4 


ft 


ft 


ft 


ft 


K 


ft ■ -ft ft ft ft 


ft 


ft 


ft 


ft 4 


9 ft 


■ * «* 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


10 REM PROGRAM FREEZE 

20 REM AUTHORS D.GRAHAM / M.COPE 

30 REM VERSION E0.1 

40 REM ELBUG JUNE 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


260 .held 

270 JSR key:BEQ held 
280 .wait 

290 JSR key:BNE wait 
300 ,held2 

310 JSR key:BEQ held2 
320 .exit 

330 PLA:TAY:PLA:TAX:PLA:PLP:RTS 
340 .key 

350 LDA#122:JSR&FFF4 
360 CPX#keycode:RTS 
370 ] 

380 NEXT 
390 CALL init 

400 END 
410 : 

420 ON ERROR OFF 

430 MODE 6 

440 IF ERR017 REPORT:PRINT 
;ERL 
450 END 


60 : 


100 ON ERROR GOTO 420 
110 MODE 6 
120 code%=&A00 

130 keycode=23 

140 FOR pass=0 TO 3 STEP 3 


160 [OPT pass 


170 .init 


180 LDA#7:JSR&FFEE 
190 LDA#14:LDX#2:JSR&FFF4 
200 LDA#entry MOD 256:STA&220 
210 LDA#entry DIV 256:STA&221 
220 RTS 
230 .entry 

240 PHP:PHA:TXA:PHA:TYA:PHA 
250 JSR key:BNE exit 


il 


at line 


II * 


* 


POINTS ARISING • 


SOUND ENVELOPE EDITOR 

It has emerged that there was a potential 
Envelope Editor published in issue 4 of ELBUG. This occured if a value 
for the parameter 's' 

(4 changed to 5) as shown below will solve this problem. 

360 DEFPROCedit(S%,F%):J%=0:FORI%=S%TO F%:NEXTF%:COLOURS:J%=J%+1:PRINTTAB(J%*5, 
20);P$(1%);:COLOURl:PRINTTAB(J%*5-2,22);FNstr(E%(I%)):NEXT 

650 DEFFNstr(n)=STRING$(5-(LEN(STR$(n))),CHR$32)+STR$(n) 


in the working of the Sound 


in excess of 83. 


Changing lines 360 (1 changed to 2) and 650 


DOMINOES 


Because the original program had been partly compacted to 

listing in the magazine, two of the lines will generate a "No such variable 
error if typed in as listed. The solution is to insert extra spaces as shown below 
(compare with the original): 

330 IF ELK% PROCELK ELSE PROCdisphand(1,0):PROCplayer 
1470 IF bd%>pd% ELK%=TRUE ELSE ELK%=FALSE:s$=n$ 


space before 


II 


* # * 


The absence of crucial 


spaces causes Basic to fail to recognise keywords like ELSE 


and THEN. We shall be publishing a series of articles starting in next month's 
issue, which will examine problems such as these in more detail. 
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rf 






d 


■ 

Y 


0 


GALACTIC INVASION 


t 


by L.P. Baxter 


j 


itir •* la ^ 


impressive demonstration of how good 


This program prov 

can be when written in Basic on the Electron. The movement of 


an 


presentation 


the graphics appears quite smooth. 


and 


very 


professional. 


further 


invaders. 


You have three lives 


for you to shoot down the Galactic 
Invaders which 


your 

exhausted. At 


a 


time 

during the display of the 


/- 


you might 


As 


on 


/// 




put up a good fight, 
swooping down one by one to attack you 
with purposeful but unpredictable 

trajectories. You move left and right 
across the bottom of the screen using 

the 'Z' and 
using the 

invader remains, 
and even 

strategy is engaged. 




/ 




sco ring 


or 


1 I 


I 


I >■ 


I I 


rr 


/ 






Kk 


bar will 

Like many good games programs 
s one is quite 


lj 


game 


long and you must 


keys and fire 


! 


1 


1 1 


c 


key. When 


one 


Pay particular attention to the spaces 
in the program 
them wrong, it is only the initial 

which are likely to be 

statements 


a new 
attack 


though if you do get 


/ 


*v 




L t 


/< 


\ 


.‘ 1-1 


I 


affected. The mass of 


/ 


\ « 


The different invaders 
rate different scores if 


t* 


II 


fj 


r 


» 


at the end of the listing 
the invaders' swoop patterns 


V 

■ 


l 


1 


so 


+ 


you destroy them, 


r 


they might be, but 


shown in the table at the start of the 


errors will be 


thrown up if you do not 


game. The highest 

randomly in 

successfully 

yourself against the 
first attack, you then 


mg 


have enough data. Please note that this 


program will not work if it 


d e f end 


renumbered because of the 


is 


of variable 


statements. 
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10 REM Program GALACTIC INVASION 

20 REM Verson E1.0 
30 REM Author L.P.Baxter 

40 REM ELBUG JUNE 1984 

50 REM Program subject to Copyright 

60 : 

100 ON ERROR GOTO 20170 
110 PROCe 

120 DIM A$(4) ,B$(4) ,X%(10) ,Y%(10) ,N${ 
5),S%(5) 

130 FOR G%=1 TO 5:S%(G%)=6000-G%*l000 
:N$(G%)="ELBUG":NEXT 
140 REM 

150 MODES:F0RA%=1 TO 4:B$(A%)=CHR$(22 
4 +A%):NEXT 

160 VDU19,0,6,0,0,0:VDU19,3,4,0,0,0 
170 VDU19,2,5,0,0,0:PROC1 
180 P%=0:R%=0 

190 E$=CHR$230:C$=CHR$231 :D$CHR$238: 
F$CHR$235+CHR$236 

200 B$=CHR$32+CHR$232+CHR$233+CHR$234 
+CHR$32:J%=0:T%=2 


520 IF J%+L%<0 OR J%+L%>15 THEN ENDPR 


OC 


530 J%=J%+L% 

540 C0L0UR2:PRINT TAB(J%,30);B$; 

550 ENDPROC 
560 : 

570 DEF PROCb 

580 C0L0UR3:Z%=J%+2:M%=29 

590 PRINTTAB(Z%,M%);H$ 

600 ENDPROC 
610 : 

620 DEF PROCe 
630 IF Z%=0 ENDPROC 

640 IF M%=4 THEN PRINT TAB(Z%,M%);SPC 
1:Z%=0:M%=0:ENDPROC 

650 M%=M%-1:IF ?{Z%*16+M%*320+2+HIMEM 
) THEN 670 

660 C0L0UR2:PRINTTAB(Z%,M%+1);SPC1 ;CH 
R$11;CHR$8;H $:ENDPROC 

670 PRINTTAB(Z%,M%+1);SPC1;CHR$11 ;CHR 
$8;"*";CHR$8; 

680 IF NOT(D%=POS AND E%=VPOS) THEN 7 


COLD START 


210 n%=l:G$=C$:N%=30 


30 


220 U%=3:K%=8:H$=CHR$229 
230 REM 


690 H%=0:A$(VP)=LEFT$(A$(VP),HP*2-2)+ 
CHR$32+MID$(A$(VP),HP*2) 

700 W%=W%+500-100*VP:VDU 32: IF VPOl 
THEN P%=P%+500-l00*VP:GOTO 760 

710 S%=RND{10)*100:P%=P%+S%:PRINT CHR 
$8;CHR$8;S%+4 00; 

720 PROCr:VDU8,8,8,8,32,32,32,32:GOTO 


WARM START ===== 

240 W%=0:R%=0:Z%=0:M%=0 
250 VDU 23,1,0;0;0;0; 

260 CLS:COLOUR3:PRINT"SCORE":F%=0 
270 V%=28:REM FLAG FOR LAST MAN(NO. 


INV LEFT) 

280 F0RA%=1 TO 4:A$(A%)=STRING$(6,CHR 
$(224+A%)+CHR332) +CHR$(224+A%):NEXT 

:VP=0:HP=0:1% 


770 


730 W%=W%+500-FNY(VPOS)*100 
740 A%=FNY(VPOS):B%=FNX(POS)*2-1:A$(A 
%)=LEFT$(A$(A%),B%-1)+CHR$32+MID$(A$(A% 
),B%+1) 

750 VDU 32:IF H%=1 THEN PROCf 


290 H%=0:D%=0:E%=0:1$ 


II II 


2 


300 REPEAT PROCd:UNTIL A% 

310 PRINTTAB(0,31);STRING$(T%,F$);TAB 

(19-LEN(G$));G$; 

320 L%=0:PROCa:y%=0:x%=0 

330 : 

340 REPEAT 

350 IF INKEY-104 AND Z%=0 PROCb 
360 IF INKEY-98 L%=-1:PROCa ELSE IF I 
NKEY-67 L%=1:PROCa 

370 PROCe:PROCh:PROCe 

380 COLOUR2:PRINT TAB(6,0);W%+P% 

390 IF W%=7000 THEN PROCk:y%=-l:GOTO 


760 PROCq 

770 Z%=0:M%=0:V%=V%-1 
780 IF V%=1 THEN N%=2:U%=0 
790 ENDPROC 
800 : 

810 DEF PROCd 
820 COLOUR 1 

830 A%=RND(3)-2:IF A%=0 THEN ENDPROC 
840 IF I%+A%<1 OR I%+A%>4 THEN I%=I% 
A% ELSE I%=I%+A% 

850 PRINT TAB(I%,4);SPC1?A$(1);SPC1 
TAB(I%);SPC1;A$(2);SPCl'’TAB(I%);SPC1;A 
$(3);SPC1' 1 TAB(I%);SPC1;A${4);SPC1:ENDP 


I I 


470 


400 IF F% PROCi 

410 IF T%=-1 PROCj:x%=-l:GOTO 470 

420 REM NOW INVADERS TURN 

430 IF H%=0 AND RND(20)=1 THEN PROCd 

440 IF H% PROCf:GOTO 460 

450 IF RND(N%)=1 OR V%=1 THEN PROCg 

460 PROCe 

470 UNTIL y% OR x% 

480 IF y% THEN 240 ELSE 150 
490 END 

500 : 

510 DEF PROCa 


ROC 


860 : 


870 DEF PROCe 

880 VDU 23,225,66,231,255,102,36,36,3 


6,24 


890 VDU 23,226,56,124,84,214,254,130, 
254,170 

900 VDU 23,227,102,153,36,90,90,90,66 


,129 


910 VDU 23,228,60,126,165,189,153,90, 
24,36 
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920 VDU 23,229,0,24,24,24,24,24,24,0 
930 VDU 23,230,0,8,8,8,8,8,8,0 

940 VDU 23,231,48,56,60,56,48,32,32,32 
950 VDU 23,232,0,0,0,1,3,7,15,31 


1370 PRINTTAB(X%(A%),Y%(A%));SFC1;:Y%( 
A%)=Y%(A%)+1:IF Y%(A%)<30 THEN 1380 ELS 
E C%=X%(A%):X%(A%)=0:Y%(A%)=0:IF C%<J%+ 
1 OR C%>J%+3 THEN 1390 ELSE F%=1:GOTO 1 


960 VDU 23,233,24,60,60,255,255,255,2 


390 


1380 COLOUR1:PRINTTAB(X%(A%),Y%(A%)) ;E 


970 VDU 23,234,0,0,0,128,192,224,240 


$; 


248 


1390 NEXT: PROCc: ENDPROC 
1400 : 

1410 DEF PROCi 
1420 T%=T%-1 

1430 COLOUR2:PRINT TAB(J%,30);B$; 
1440 PROCp:IF T%=-1 ENDPROC 
1450 CLS:COLOUR3:PRINT"SCORE 


980 VDU 23,235,0,0,0,1,3,15,31,63 

990 VDU 23,236,0,0,0,0,128,224,240,248 
1000 VDU 23,237,0,0,0,255,0,255,0,0,0 

1010 VDU 23,238,176,184,188,1184,176,16 
0,160,160 
1020 ENDPROC 

1030 : 

1040 DEF PROCf 

1050 IF V%=1 THEN SOUND 17,-15,30,1:50 
UND 17,-15,10,1:GOTO 1070 
1060 SOUND &0011,-15,r%,5:r%=r%-l 
1070 IF D%<0 OR D%>19 THEN 1090 
1080 PRINT TAB{D%,E%);SPC1?:IF R%<U% A 

ND RND(K%)=1 AND E%<28 THEN R%=R%+1:X%( 
R%)=D%:Y%(R%)=E% 

1090 IF E%>29 THEN 1120 

1100 READ A%,B%:D%=D%+A%:E%=E%+B%:IF D 

%>=0 AND D%<20 THEN PRINT TAB(D%,E%);1$; 
1110 ENDPROC 

1120 IF V%=1 THEN 1130 ELSE IF RND(5)= 

1 THEN PROCd ELSE PRINT TAB{FNX1(HP),FN 
Y1(VP));1$ 

1130 R%=0:H%=0 

1140 IF D%>J% AND D%<J%+4 THEN F%=1 
1150 ENDPROC 
1160 : 

1170 DEF PROCg 

1180 RESTORE (RND{3)-1)*20+11000 

1190 VP=RND(4):IF INSTR(A$(VP),B$(VP)) 
=0 THEN 1190 

1200 IF RND(2)=1 THEN 1220 ELSE A%=15 
1210 A%=A%-2: IF MID$ (A$ (VP) , A%, 1) =CHR$ 
32THEN 1210 ELSE HP=(A%+1)/2:GOTO 1240 
1220 HP=(INSTR (A$ (VP),B$(VP))+1)/2 
1230 RESTORE (RND(3)-1)*20+10000 
1240 I$=B$(VP) 

1250 IF V%=1 THEN RESTORE (10060+(RND( 
2)-1)*1000):PRINT TAB(FNXl(HP),FNY1 (VP) 

);SPC1;:HP=3 

1260 D%=FNX1(HP):E%=FNYl(VP) 

1270 r%=200:H%=l:ENDPROC 
1280 : 

1290 DEF FNX(X)=(X-I%+1)/2 
1300 DEF FNY(Y)=(Y-2)/2 
1310 DEF FNXl(X)=X*2+I|-1 

1 320 DEF FNYl (Y)=2+Y*2 

1 330 : 

1340 DEF PROCh 

1350 IFR%=0 THEN ENDPROC 

1360 F0RA%=1TOR%:IF X%(A%)=0 AND Y%(A% 

)=0 THEN NEXT:ENDPROC 


It 










1460 C0L0UR2:PRINT TAB(0,31);STRING?(T 
%,F$) ; S PC2; T.AB (1 9-LEN (G$)) ;G$;TAB (0,30) 




1470 F%=0:H%=0:D%=0:E%=0:R%=0:HP=0:VP 
0:J%=0:M%=0:Z%=0 

1480 REPEAT:PROCd:UNTIL A%:ENDPROC 
1490 : 

1500 DEF PROCj 

1501 C0L0UR2:COLOUR129:PRINTTAB(5,12) 


It 


tl 


Game Over 


1510 FOR A=1 TO 7000:NEXT 
1520 W%=W%+P%:IF W%<=S%(5) THEN 1690 
1530 REM MADE IT INTO HIGH SCORE TABLE 
1540 FOR A%=5 TO 1 STEP -1 
1550 IF S%(A%)<W% THEN C%=A% 

1560 NEXT:VDU22,6,19,0,1;0;19,1,3;0; 

1570 COLOUR!29:COLOUR0:PRINTTAB(11,1)" 
Galactic Invasion":C0L0UR128:COU3URl 
1580 PRINT'"Your score of ";W%;" is en 
ough to rank" 

1590 PRINT TAB(0,4) ,*C%,*MID$ ("stndrdtht 

h",C%*2-1,2);" in the high score table. 
1600 PRINT TAB(0,8);"Please enter your 
name in not more than ten letters." 
1610 PRINT TAB(14,15);;SPC(10); 

SPC (1 3) 

1620 PRINT TAB(15,15);:*FX15,1 
1630 INPUT ""A$ 


It 
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1640 IF LEN(A$)>1 0 THEN 1610 

1650 IF C%=5 THEN 1680 
1 660 FOR A%=4 TO C% STEP 
1670 S%(A%+1)=S%(A%):NS(A%+1)=N$(A%):N 


2010 DEF PROCn 
2020 CLS:A%=6 
2030 A%=A%-1 

2040 PRINT TAB{0,0);A%; M . 

(10,0);N$(A%);CHR$30; 

2050 B%=0 
2060 B%=B%+1 
2070 VDU 11: IF INKEY10O-1 THEN A%=0:B 
%=5:ENDPROC 
2080 IF B%<4 THEN 2060 
2090 IF A%>1 THEN 2030 
2100 VDU 11,11,11:PRINT TAB(3,2)STRING 
$(14,CHR$237);CHR$11;TAB(3,1)"HIGHEST S 
CORES 

2110 IF INKEY (1 000) 0-1 THEN ENDPROC 
2120 Q%=1:ENDPROC 

2130 : 

2140 REM 
2150 DEF PROCp 
2160 FOR A%=1 TO 50 
2170 QCOL RND(4) -1,RND(3) 

2180 SOUND 1,0,RND(50)+105,1:SOUND 0,- 
15,7,1 

2190 MOVE (J%+3)*64-32,32 

2200 DRAW RND{144)-96+(J%+3)*64,RND(14 

4) +32 
2210 NEXT 

2220 FOR A=1 TO 3000:NEXT:ENDPROC 


1 


II 


;S% (A%) ;TAB 


EXT 


1680 S%(C%)=W%:N$(C%)=A$ 

1690 ENDPROC 
1700 : 


1710 DEF PROCk 
1720 P%=P%+W%:n%=n%+l 
1730 G$=STHINGS(n% MOD 10,C$)+STRINGS( 
n% DIV 10,D$) 

1740 U%=3+INT(n%/2):IF U%>8 THEN U%=8 
1750 N%=N%-5:IF N%<5 THEN N%=2 


If 


EXPLOSION 


9999 REM DATA FOR DIVES 
10000 DATA -1,1,-1,1,-1,1,0,1,0,1,1,1,1 
, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 
1 , 0 , 1 , 1 , 1 , 0 , 1 , 1 , 1 , 0 , 1 , 1 , 0 , 1 , 0 , 1 ,- 1 , 1,-1 
,0,-l,l,-l,0,-l,l,-l,l,-l,l,-l,l,-l,0 r - 
1 , 1 ,- 1 , 1 ,- 1 , 1 ,- 1,1 
10020 DATA -1,1,-1,1,-1,1,0,1,0,1,1,1,1 
, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 1 , 

1,0,1,0,1,0,1,1,1,0,1,1,0,1,-1,1,-1,0,~ 
1,0,-1,1,-1,0,-1,0,-1,1,-1,0,-1,0,-1,0, 
- 1 , 0 ,- 1 , 1 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 1,1 
,0,1,1,1,1,1,1,1,1 

10040 DATA -1,1,-1,1,-1,1,0,1,0,1,1,1,1 
,1,1,1,1,1,1,1,1,0,1,0,1,0,1,0,1,0,1,1, 
1,0,1,0,1,0,1,1,1,0,1,1,0,1,-!,1,-l,0/~ 
1,0,-1,1,“1,0,-1,0,-1,1,-1,0,-1,0,-1,0, 
- 1 , 0 ,- 1 , 1 , 0 , 1 , 1 , 1 ,- 1 , 1 ,- 1 , 1 ,- 1 , 1 ,- 1 , 1 , 
- 1 , 1 , 0 , 1 , 1 , 1 , 1,1 

10060 DATA 0,1,0,1,0,1,0,1,0,1,0,1,0,1, 
0 , 1 , 0 , 1 , 0 , 1 ,- 1 , 1 ,- 1 , 1 ,- 1,0 
, 1 , 1 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 1 , 

1 , 0,-1 


1760 K%-11-U% 

1770 FOR A=1 TO 2500:NEXT:ENDPROC 
1780 : 

1790 REM DISPLAY SHEETS 


1,1 


1800 DEF PR0C1 

1810 REPEAT:VDU 23,1,0;0;0;0;:*FX15,1 
1820 Q%-0:PROCn:IF Q%=0 THEN ENDPROC 
1830 CLS:C%=20:*FX15,1 
1840 A$ 

1850 A$ 


GALACTIC INVASION": PROCm (1) 
+STRINGS{17,CHR$237):PROCm( 


II 


II If 


2 ) 


+B$ (1) + 

+B$ (2) + 

+B$ (3) + 

+B$(4)+ 

LEFT":PROCm{26) 

RIGHT":PROCm(28) 

. KEY FIRE":PROCm(30) 

1930 IF INKEYS(1000)<>" M THEN ENDPROC 

1940 UNTIL FALSE 
1950 : 

1960 DEF PROCm(A%) 

1970 IF A%=1 OR A%-2 G0T01990 
1980 A$=STRING$(4,CHR$32)+A$ 

1990 FOR B%=15 TO 1 STEP -1:A=SIN(97.6 
):B$=MIDS(A$,B%):PRINT TAB(0,A%);B$;:NE 
XT:ENDPROC 
2000 : 


It 


II 


:PR0Cm(8) 

600": PROQm(l 2) 
400":PROQn(16) 
200":PROCm(20) 


1860 A$="400 

1870 A$-"300 
1880 A$="200 
1890 A$="l00 

1900 A$="Z KEY 
1910 A$="X KEY 
1920 AS 


II 


It 


tl 


II 


1,1,1,1,1,0 
1 , 1 ,- 1,1 

1 , 0 , 0 , 1 , 


1 ,- 1 ,- 1,0 


,- 1 , 0 ,- 1,0 
- 1 , 1 ,- 1 , 1 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 1 , 0 , 1 , 1 , 1 , 1 , 0,1 

, 0 , 0 ,- 1 , 1 ,- 1,1 

10070 DATA-1,1 ,-l ,1 ,-l ,1 ,-l ,1 ,-l ,1 ,-l ,1 
, — 1 , 1 , — 1,1 ,— 1 ,1 

11000 DATA 1,1,1,1,1,1,0,1,0,1,-1,1,-1, 

1 ,- 1 , 1 ,- 1 , 1 ,- M ,- 1 , 0 ,- 1 , 0 ,- 1 , 1 ,- 1 , 0,-1 
, 0 ,- 1 , 1 ,- 1 , 0 ,- 1 , 1 ,- 1 , 0 ,- 1 , 1 ,- 1,0 

, 1 , 0 , 1 , 1 , 1 , 1 , 0 , 1 , 1 , 1 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1,1 
1 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1,1 


II 


f 


1 , 1,0 
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3 3 


11020 DATA 1,1,1,1,1,1,0,1,0,1, 




20010 A%=1 8 




:B%=179 


1,0 


1 ,0 


1 


1,-Vl, 


l, 


1 


-1 1 

9 1 t * 


1 , 0 ,'- 1 , 0 , 
-1,0,“1,1 


15,109,2 

15,121,1 


f 


1,1 


1 , 0 , 


1,0,-1,1,0 


,0 


1 , 0 , 


t 


t 


9 


, 1 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 0 , 1 , 0 , 


15,B%,1 


1 , 0 , 1 , 0 , 1 , 1 , 0 , 1 ,- 1 , 1 ,- 1 , 1 ,- 1 , 1 ,- 1 , 1 ,- 1 , 

0.-1,1 


15,A%,1 


1 , 0 , 

11040 DATA 1,1,1,1,1,1,0,1,0,1, 

1 ,- 1 , 1 ,- 1 , 1 ,- 1,1 
, 0 ,- 1 , 1 ,- 1 , 0 ,- 1,0 

, 1 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 0 , 1 , 0 , 
1 , 0 , 1 , 0 , 1 , 1 , 0 , 1 ,- 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 
1 , 0 , 1 ,- 1,1 


1,1 


1 , 1 , - 1,1 


1,1 


SOUND 1, 


t 


9 


1,1,~1, 
- 1 , 0,-1 
1 , 1,0 


15,B%,1 

15,A%,1 

15/B%,1 


20070 SOUND 1, 


1 ,0 


1 , 0 , 

1,0,-1,1 


1,0, 


20080 SOUND 1, 




1 , 0 , 


20090 SOUND 1, 




/ 


20100 ENDPROC 




1 


20110 DEF PROCr 


r 


i 


11060 DATA 0,1,0,1,0,1,0,1,0,1 ,0,1 ,0,1 


20120 FOR A%=100 TO 200 STEP 25 


/ 


0,1,0,l,0,l,l,lrl,l,1,0,l,1,“l,l,-l,0,“ 

1,1 r - 1 , 0 ,- 1 , 0 ,- 1 , 0,-1 , 0,-1 , 1 ,- 1 , 1 , 1 , 1,1 

, 1 , 1 , 0 , 1 , 0 , 1 , 0 , 1 ,- 1 , 1 ,- 1 , 0 ,- 1 , 0,0 

1,0,0,0,-!,0,0,0,-!,0,-1,1,-1,1 


15,A%-4,1:SOUND 1,-15,A% 


20130 SOUND 1, 


15,A%+8,1 




20140 SOUND 1,0,1,1 


f 


201 50 NEXT 


,0,1,0,0,1,1,1,1 


20160 ENDPROC 


11070 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1, 


20170 ON ERROR OFF 


1 , 1 , 1,1 

20000 DEF PROCq 


1 ! 


at 


H * 


1 me 


Continued irom Page 19 


1 51 0 Y=((0.1/A)*(EXP(A*X)+EXP(-A*X))) 


1290 VDU 23,247,60,32,32,0,0,0,0,0 
1300 VDU 23,248,0,56,56,16,16,16,16,0 
1310 VDU 23,249,0,56,56,20,34,68,72,0 
1320 VDU 23,250,60,0,0,0,0,0,8,100 

1330 VDU 23,251,0,28,4,7,7,3,0,0 
1340 VDU 23,252,0,0,1,1,1,7,0,0 

1350 VDU 23,253,32,32,0,0,0,0,0,0 
1360 VDU 23,254,16,32,36,44,30,0,0,0 

0,0,0,194,224,224,0,0 


1520 IF X 
1530 DRAW X/2+640,Y/2+618 
1540 IF X=1000:DRAW 1140,Y/2+580 
1550 NEXT 

1560 VDU 5,19,15,1;0;19,14,6;0;19,2,1; 
0;19,4,7;0;19,6,2;0;19,13,2;0;19,3,3;0; 
19,5,2;0;19,9,7;0;19,10,4;0; 

1570 QCOL 0,9 

1580 MOVE!28,64:VDU242,242,32,242,242, 


9 


1 380 MAN 1 $=CHR$ (18) +CHR$ (3) +CHR$ (1) +CH 


R$ (247) +CHR$ (8) +CHR3 (1 0) +CHR? (248) +CHR$ 


32,242,242,32,242,242,32,242,32,242,243 


(8)+CHR$(18)+CHR$(3)+CHR$(7) +CHR$(247) + 


1590 MOVE64,32:VDU32,243,32,242,243,32 


CHR$ (8) +CHR$ (11) 4CHR$ (244) 4CHR$ (8) 4CHR$ 


,243,32,243,243,32,32,243,243,32,243,32 


(18)CHR$ (3)+CHR$(5) +CHR$(246) 


1600 GOOD 0,10 


1390 MAN2$=CHR$(18)+CHR$(3)+CHR$(1)-k:H 


1610 MOVE 64,32:VDU 32,243,242,32,242 


R$(247) +CHR$ (8) +CHR$ (10) +CHR$ (249) +CHR$ 


32,243,243,32,242,32,242,242,32 


(8) -+CHR$ (18) +CHR$ {3) +CHR$ (7) +CHR$ (250) + 


CHR$(8)+CHR$(11)+CHR$(244)+CHR$(8)+CHR$ 


,242,243,242,32,242,243,32,242,32,242 


(18)+CHR$(3)+CHR$(5) +CHR$(246) 


1630 MOVE X%,716:PRINT MAN$ 

1640 VDU 28,3,29,16,12,24,192;96;1024; 


1 4 00 MAN3$CHR$ (18) +CHR$ {3) +CHR$ (1)+CH 


( 8 ) 


( 


640; 


18) +CHR$(3) +CHR$(7) +CHR$(253) +CHR$(254) 


4CHR$(8) +CHR$(18) +CHR$(3)+CHR$(5)+CHR$( 


1660 : 


255) 


1670 DATA 15,4,0,0,15,4,190,64,15,85,0 
,608,15,85,190,640,15,4,1280,0,15,4,108 
8,64,15,85,1280,608,15,85,1088,640,3,4 
0,608,3,4,192,640,3,85,0,640,3,85,384,7 
36,3,35,0,736,3,4,1280,608,3,4,1088,640 


1410 MAN$=MAN1$:X%=0:I%=7:y%=0 
1420 ENDPROC 

1 430 : 

1440 DEF PROCscreen 


/ 


1450 VDU 19,0,4;0;19,15,4;0;19,14,4;0; 

19,13,4;0;19,3,4;0; 


1680 DATA 3,85,1280,640,3,85,896,736,3 


85,1280,736,3,4,864,896,3,4,440,896,3 

85.768.832.3.85.480.864.13.4.384.736.13 
4,0,736,13,85,512,832,13,85,0,992,13,8 

5.320.992.13.4.896.736.13.4.1280.736.13 

85.768.832.13.85.1280.992.13.85.1024.992 

1690 DATA 14,4,0,992,14,4,0,1024,14,85 

1280.992.14.85.1280.1024.14.4.320.992 

14,4,1024,992,14,85,440,896,14,85,864,896 


9 


9 


1460 PRINT TAB (7,1) "PLEASE"TAB (8,2) "WA 


11 


IT 


9 


1470 FOR Q=0 TO 39 


1480 READ C, Z, X, Y:GCOL 0,C:PLOT 2,X,Y: 

NEXT 


r 


1490 GCOL 0,1:A=1/(1000*2~.5) 

1 500 FOR X=-1000 TO 10,00 STEP 50 


/ 
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entry in the March Brainteaser competition. 

See back cover of ELBUG for full details on prices, subscription rates and 
ordering. 



ELBUG 


JUNE 1984 


Volume-1 Issue 7 





ELBUG MAGAZINE CASSETTE 


on fingers and brain, we offer, each month, a 
cassette of the programs featured in the latest edition of ELBUG. The first 
program on each tape is a menu program, detailing the tape's contents, and 
allowing the selection of individual programs. The tapes are produced to a 
high technical standard by the process used for the BEEBUGSOFT range of 
titles* 


and 
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